Вопрос по TrackBar

[SeRhy]

Как по событию OnChenge заставить MediaPlayer перекидывать прогес песни на соответствуюший прогрес TrackBar

[KORN]

  TrackBar1.Max:=MediaPlayer1.Length;

делаем максимальную длину TrackBar1 равной длине песни а патом

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

но пока он в фокусе то будут лаги со звуком...