用TMediaPlayer循环播放背景音乐的问题， 附原码，高分求解

Question

我用TMediaPlayer播放音乐文件
procedure palymusic;//播放音乐
begin
  MediaPlayer.filename:= filename;
  MediaPlayer.open;
  MediaPlayer.notify:= true;
  MediaPlayer.play;
end;procedure stopplay;//停止播放
begin
  MediaPlayer.stop;
  MediaPlayer.notify:= false;
end;procedure TForm1.MediaPlayerNotify(Sender: TOject);//控件的事件
begin
  if MediaPlayer.notify then
  begin
    MediaPlayer.rewind;
    MediaPlayer.play;
    MediaPlayer.notify:= true;
  end;
end;这样做出现的现象是第一次播放可以，第一次停止也可以，但停止过后在播放就会死掉
为什么呢？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.MediaPlayer1.FileName:='E:\midi\bg.mid';
  form1.MediaPlayer1.AutoOpen:=true;
  form1.MediaPlayer1.Open;
  form1.MediaPlayer1.Play;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if mediaplayer1.Position=mediaplayer1.Length then
    begin
      mediaplayer1.Play;
    end;
end;