Listbox-Einträge nacheinander in WindowsMediaPlayer abspiele

[mlspider]

OK, ich habe es mit einer m3u-Datei gelößt. Eigentlicht ganz simpel:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
 if FileLoad2.Execute then
 Label1.Caption:=(extractFileName(fileLoad2.fileName));
 WindowsMediaPlayer1.URL:=Label1.Caption;
end;

Trotzdem Danke!!!