循环播放的问题(25分)

请问我把mp3的列表存在一个listbox里面，我用mediaplayer实现了单曲循环播放，但无法实现列表的循环
播放。请问列表的循环如何实现？（就是当最后一首歌放完时，跳回第一首歌放）

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if listbox1.itemindex=listbox1.items.count then
listbox1.itemindex:=0;
mediaplayer1.filename:=listbox1.items.strings[listbox1.itemindex];
mediaplayer1.open;
mediaplayer1.play;
end;

在mediaplayer的onNotify事件中编写代码
mediaplayer.stop;
if listbox1.itemindex=listbox1.itess.count-1 then listbox1.itemindex:=listbox1.itemindex+1;
mediaplayer.filename:=listbox1.items.strings[listbox1.itemindex+1];
mediaplayer.play;

到多媒体里找一下，这样的问题很多的( 在XP下mediaplayer的onNotify事件中循环
不了，不知道大家有没有碰到过)
procedure Tform1.TimerTimer(Sender: TObject);
begin
if mediaplayer.Mode in[mpPlaying,mpPaused] then
begin
Inc(listbox1.itemindex);
if listbox1.itemindex = ListBox1.Items.Count then listbox1.itemindex := 0;
mediaplayer.FileName := Path + ListBox1.Items.Strings[listbox1.itemindex];
try
mediaplayer.Open;
mediaplayer.Play;
except
MessageDlg('无法打开或无此文件！',mtError,[mbOK],0);
end;
end;
end;