有关TMediaPlayer的一个问题

Question

form show时open一个wav文件，然后调用TMediaplayer的播放功能直至button有被按下的事件发生

Answer 1

TMediaPlayer.paly 只能播放，我想知道的是如何循环重复播放呀

Answer 2

用一个Timer看乐曲是不是放完了。
procedure TForm1.Timer1Timer(Sender:TObject);
begin
  if MediaPlayer1.Mode in [mpStopped] then
    MediaPlayer1.Play;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=False;  
  MediaPlayer1.Stop;
end;

Answer 3

MediaPlayer.AutoRewind = true;