nächsten Song mittels OnNotify der TMediaPlayer Komponente

[klomann3]

Hallo,
Ich hätte da mal eine kleine Frage, ich bin dabei nen kleinen Media Player zu proggen, nichts großes.
Ich habe zunächst mal eine Playlist mit der ListBox Kompo. gemacht.
Funktioniert soweit auch wunderbar, aber wenn ein Lied zuende ist muss das nächste gespielt werden und da haperts bei mir, bisher hab ich das so gelöst, nur schmiert der Player ab wenn man dann einen Eintrag in der ListBox(Playlist) auswählt:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
Listbox1.ItemIndex := Listbox1.ItemIndex + 1;
    OpenDialog1.FileName := ListBox1.Items[Listbox1.ItemIndex];
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Play;
    Label5.Caption := MediaPlayer1.FileName;
end;

Könnte mir da freundlicherweise mal jemand zur Hand gehen, und mir sagen wie ich das richtig progge?, Vielen Dank schonmal im Vorraus an alle die mir helfen und helfen wollen.