Привязать TrackBar к MediaPlayer

[One.Love]

Вообщем я делаю вот так:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
TrackBar1.Max:=Form3.MediaPlayer1.L ength;
Form3.MediaPlayer1.Position:=Trackb ar1.Position;
Form3.Mediaplayer1.Play;
end;

и так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Trackbar1.Position:=Form3.MediaPlay er1.Position;
end;

при этом музыка глохнет, но трекбар бежит нормально. Подскажие что можно сделать? Чтобы и трекбар бежал и музыка играла нормально без запинания??

[SunKnight]

procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Max:=Form1.MediaPlayer1.Length;


end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Form1.MediaPlayer1.Position:=Trackbar1.Position;
Form1.Mediaplayer1.Play;
end;

[Stilet]

One.Love

Компилим, запускаем, Радуемся...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls, ExtCtrls;

type
 TscrollBar=class(StdCtrls.TScrollBar)
  procedure vs(var w:TWMHScroll); message CN_HSCROLL;
 end;
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:='D:\_Musik\Poets of the fall\02_poets_of_the_fall_late_goodbye_theme_from_max_payne_2.mp3';
MediaPlayer1.Open;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 if not Timer1.Enabled then begin

 end;
end;

procedure TForm1.MediaPlayer1PostClick(Sender: TObject;
  Button: TMPBtnType);
begin
if Button =btPlay then  begin
 ScrollBar1.Min:=0;
 ScrollBar1.Max:=MediaPlayer1.Length;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

ScrollBar1.Position:=MediaPlayer1.Position;

end;

{ TscrollBar }

procedure TscrollBar.vs;

begin

 with form1 do begin
 Timer1.Enabled:=false;
 if w.ScrollCode=SB_ENDSCROLL	then             Timer1.Enabled:=true;
  inherited;
         MediaPlayer1.Position:=Form1.ScrollBar1.Position;
        MediaPlayer1.Play;
 end;

end;

end.

[One.Love]

Это всё не то ребята.

Я же говорю сделал так чтобы у меня в плеере TrackBar двигался по длине дорожки (песни). А педвинуть его назад или вперед чтобы послушать что там дальше или наоборот назад, я не могу он не двигается.
Вообщем мне надо чтобы было как в винампе.

[Stilet]

Вообщем мне надо чтобы было как в винампе.

Ну дык чем #3 не катит?

[One.Love]

тем что бегунок движется а песню перемотать я не могу!

[Kostia]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if (trackbar1.Position>mediaplayer1.Position+1) or
     (trackbar1.Position<mediaplayer1.Position-1) then
  begin
...