windows media player

[DAMAVAND]

با سلام
دوستان توي يه برنامه مي خواهم که وقتي يه اهنگ به پايان رسيد به طور اتوماتيک آهنگ بعدي از ليست اجرا بشه. اينکه کي مديا به پايان ميرسه رو تونستم حل کنم ولي اتفاقي که ميفته اين که
ديگه مديا بعدي رو اجرا نميکنه نميدونم مشکل از کجاست ???

procedure TForm1.WmpPlayStateChange(ASender: TObject; NewState: Integer);
begin
if (Wmp.playState=wmppsMediaEnded)then
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
Wmp.URL:=FileListBox1.FileName;
Wmp.controls.play;
end;
end;

کد اجرا ميشه و Filelistbox به فايل بعدي ميره ولي اهنگ بعدي اجرا نميشه ..????