怎么实现MediaPlayer循环播放？

Question

有一个定时器来作吧
procedure TForm1.TimerOnTimer(Sender:TObject);
begin
  if (MediaPlayer1.Mode=mpStopped) and
     (MediaPlayer.Length=MediaPlayer.Position) then
  begin
    MediaPlayer.Position:=0;
    MediaPlayer.Play;
  end;
end;

Answer 1

procedure TForm1.TimerOnTimer(Sender:TObject);与我的
procedure TForm1.Timer1Timer(Sender:TObject);
有何不同呢？区别是什么？

Answer 2

十分感谢 blazingfire(烈焰)，但是我还有一个小问题想请教: 
我用
procedure TForm1.Timer1Timer(Sender:TObject);
begin
  if (MediaPlayer1.Mode=mpStopped) and
     (MediaPlayer.Length=MediaPlayer.Position) then
  begin
    MediaPlayer.Position:=0;
    MediaPlayer.Play;
  end;
end;就实现了，但是我不明白
procedure TForm1.TimerOnTimer(Sender:TObject);
procedure TForm1.Timer1Timer(Sender:TObject);{双击Timer组件，加的过程}
有何不同呢？区别是什么？

Answer 3

如果没有声卡，那么在操作cdrom的时候，好象有问题，在我放完一遍以后，不能停止，也不循环放，不知道怎了，就是说在那个时候，如果要打开光驱的话，要按两下，也不知道是不是我的光驱太老的缘故，还是卡住了，奇怪，呵呵