افزودن Progress Bar برای فایل های فلش

[Bahram0110]

من می خوام تو برنامم یه TrackBar اضافه کنم تا کاربر بتونه فلش رو جلو و عقب ببره. یه چیزی مثل مثلا مدیا پلیر.
کد زیر رو نوشتم ولی درست جواب نمی ده:

procedure TForm1.FormCreate(Sender: TObject);
begin
trackbar1.Max := flash1.TotalFrames;
end;

procedure TForm1.Flash1Progress(Sender: TObject; percentDone: Integer);
begin
trackbar1.Position := flash1.CurrentFrame;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
flash1.GotoFrame(trackbar1.Position);
end;

لطفا کمک کنید!