背景音乐的播放问题(30分)

如何在程序一开始运行的时候就自动播放背景音乐，并且不停的循环播放？请赐教！

使用 TMediaPlayer 组件
procedure TForm1.FormCreate(Sender: TObject);
begin

MediaPlayer1.FileName := 'c:/1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

MediaPlayer1.Play;
end;

谢谢liyinwei