[vah-smile]

Вот сделал следующее:

Код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  with MediaPlayer1 do
       begin
             Filename := Listbox1.items.strings[listbox1.itemindex];
             Open;
             Display := Panel2;
             DisplayRect := Panel2.ClientRect;
             Play;
       end;
  TrackBar1.Max := MediaPlayer1.Length;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TrackBar1.Position := Mediaplayer1.Position;
  MediaPlayer1.Play;
end;

В итоге TrackBar1 "следит" за воспроизведением. А как сделать так, чтобы можна было бы перематывать воспроизведение (например, при помощи мыши)? Так как код:

Код:

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

решает эту проблему, но видео тормозит (идет преривание при каждом увеливении TrackBar1.Position и Mediaplayer1.Position).