Hatte den fehler garnich an der stelle vermutet
habe selber noch was geändert so läufts:
Delphi-Quellcode:
procedure TForm4.MediaPlayer1Notify(Sender: TObject);
begin
if mediaplayer1.Position = mediaplayer1.Length then begin
// position = gesamtlänge, bedeutet dass das lied beendet wurde
Listbox1.Selected[currentSong] := false; // das gerade gespielte lied de-selektieren
inc(currentSong); // aktuellen song um eines erhöhen
if currentSong < Playlist.Count then { alles passt, songindex im rahmen}
else mediaplayer1.next;
PlayFile(CurrentSong);
Listbox1.Selected[currentSong] := true; // das aktuelle lied selektieren
PlayFile(ListBox1.ItemIndex);
end;
end;