请教大虾：用mideaplayer来播放一首歌，如何用progressbar来表示进度？

Question

TMediaPlayer有一个Position的属性啊

Answer 1

to  prometheusphinx(白日梦)
能否给个详细代码？

Answer 2

TMediaPlayer好象不能自己通知，要写代码不断检测才行，这样做就没什么意思了。

Answer 3

用一个计时器，InterVal设为50吧，procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Smooth := True;
  ProgressBar1.Step := 1;
  ProgressBar1.Max := MediaPlayer1.Length;
  ProgressBar1.Position := 0;
  MediaPlayer1.Play;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position <> MediaPlayer1.Position then
    ProgressBar1.Position := MediaPlayer1.Position;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
if not od.Execute then exit;  //od:TOpenDialog
timer1.Enabled :=false;         
mp.FileName :=od.FileName;  //TMediaPlayer
mp.Open;
mp.Play;
ProgressBar1.Max :=mp.Length;
timer1.Enabled :=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position :=mp.Position;
end;

Answer 5

to  liuziran(倒立旋风转的青蛙) 
谢谢大哥指点，小弟还有一个疑问，步长step如何设置？