[2Pac A.S.]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.Max:=MediaPlayer1.TrackLength[0];
TrackBar1.Position:=MediaPlayer1.Position;
end;

Не забуть таймер поставить.
У таймері інтервал 100.