怎样实现歌曲的连续播放(100分)

hi:
你好,
我目前做了一个播放器,使用了tmediaplayer tfilelistbox等控件,打开文件后
filelistbox中会出现播放列表,且filelistbox中出现播放列表是会自动播放,双击
任何一首歌曲名即可播放该歌曲,但是我如何让歌曲从被选择播放的那一首开始往下
一首接一首自动播放哪?谢谢.

我想是否可以这么做
1. 设MediaPlayer的Notify属性为True : MediaPlayer1.Notify := True
2. 在OnNotify事件里判断MediaPlayer的Mode是否为 mpStoped ，如果是，
则将下一个文件名给播放器，打开

我想应该可以，不过我自己没有试过。

//双击文件列表框,选择开始播放的歌曲
procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin

MediaPlayer1.FileName :=filelistbox1.FileName
MediaPlayer1.Open
MediaPlayer1.Notify :=true;//关键之处：该属性设为true 让MediaPlayer1成功调用
//play方法之后能够响应ONNotify事件
MediaPlayer1.play;
end;


//当一首歌曲播放完成时，响应如下事件
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

if filelistbox1.ItemIndex<filelistbox1.Items.Count then

begin

filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;
MediaPlayer1.FileName :=filelistbox1.FileName
MediaPlayer1.Open
if filelistbox1.ItemIndex=filelistbox1.Items.Count-1 then

MediaPlayer1.Notify :=false //当播放到最后一首时，停止响应ONNotify事件
else
MediaPlayer1.Notify :=true;
MediaPlayer1.play;
end;

end;

多人接受答案了。