Mediaplayer Problem: Lied mit play abspielen, nicht mit clic

[Zitrone.Saft]

Also soll ich jetzt statt dem:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   if mediaplayer1.Position = mediaplayer1.Length then begin

     Listbox1.Selected[currentSong] := false;
     inc(currentSong);
     if currentSong < Playlist.Count then
     else currentsong := 0;
     PlayFile(CurrentSong);
     Listbox1.Selected[currentSong] := true;
   end;
end;

das schreiben:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  case MediaPlayer1.NotifyValue of
    nvSuccessful: ;
    nvSuperseded: ;
    nvAborted: ;
    nvFailure: ;
  end;

oder wie meinst du das?