[Klassenas]

Как реализовать перемотку при воспроизведении медиафайла при помощи TTrackbar?
Отображение текущей позиции с его помощью я сделал, но когда патаюсь реализовать рперемотку, то ни фига не работает.
Вот мой код:

Код:

procedure TForm1.Timer1Timer;
begin
  with MediaPlayer1 do
    if FileName<>'' then
      TrackBar1.Position:=Round(200*Position/Length);
  end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
//with MediaPlayer1 do
//  if FileName<>'' then
//    Position:=Round(TrackBar1.Position*Length/200);
end;

Подскажите, что я сделал не так?