[lmikle]

1.

Код:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  If Button = btStop Then MediaPlayer1.Position := 0;
end;

Годится?

2.

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  MediaPlayer1.Position := TrackBar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TrackBar1.OnChange := Nil;
  TrackBar1.Position := MediaPlayer1.Position;
  TrackBar1.OnChange := TrackBar1Change;
end;

Пришлось связать через таймер, т.к. у медиаплеера нет Progress...