[mak-karpov]

А полосу прогресса-

Код:

var I : Boolean;
    .
    .
    .
procedure TForm1.Timer1Timer(Sender : TObject);
begin
I := true;
TrackBar1.Position := MediaPlayer1.Position;
end;

procedure TForm1.TrackBar1Charge(Sender : TObject);
begin
If not I then MediaPlayer1.Position := TrackBar1.Position;
end;

Помоему так