1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TfrmMain.Play(Idx: Integer); // zur idx: Ich habe eine Playlist und er spielt das Lied nach seiner ID ab.
var
  ID3: TId3Tag;
begin
  if FileExists(Playlist[Idx].Pfad) then // Wenn die Datei exisitiert
    begin
      Lieder.ItemIndex := Idx; // Lieder ist eine TListBox (also nur für's visuelle)

      Id3 := ReadId3Tag(Playlist[Idx].Pfad, MainCover); // ID3-Tags der aktuellen Datei werden gelesen
      Aktuell := idx; // Die Variabel "Aktuell" ist nur lokal wichtig.

      UpdateView;   // Die Anzeigen im Formular inklusive Cover werden geladen (keine Fehler)

      Player.FileName := Playlist[Idx].Pfad; //dem Player wird der FileName zugewiesen.

      if not FileExists(Player.FileName) then // 2. Überprüfung, ob die Datei immernoch exisitiert - Man achte darauf, dass FileExists vom Player.FileName abgefragt wird und nicht von Playlist[Idx].Pfad.
        begin
          TaskMessageDlg(
          'Datei existiert nicht',
          Format('Die Datei "%s", die Sie öffnen wollten, existiert nicht.',[Player.FileName]),
          mtError,
          [mbOK],
          0);
          Next;
          Exit;
        end;

        try
          Player.Open; // Hier ist das Problem.
        except
          TaskMessageDlg(  // Man sieht den Fehler.
          'Datei konnte nicht abgespielt werden',
          Format('Es gab einen Fehler beim Abspielen der Datei "%s", die Sie wiedergeben wollten.',[Player.FileName]),
          mtError,
          [mbOK],
          0);
          Next; // Mit "Next" wird das nächste Lied aufgerufen. Also wenn das Lied Probleme macht, nächstes aufrufen.
          Exit;
        end;

        Player.Play; // Abspielen des Players

        VolumeChange(self); // Lautstärke

        Playing := True; // Lokale Variable
        
        Countdown.Caption := FormatDateTime('nn:ss' ,Player.Length-Player.Position); // Countdown oben rechts
    end;
end;