Delphi Mediaplayer Fehler

[smart]

Delphi-Quellcode:

  if OpenDialog1.Execute then
     begin
       if ausgelesen[aktuell] = 'Spiel' then aktuell := 4;
 
       Form1.Mediaplayer1.Close;
       Form1.Mediaplayer1.Filename := OpenDialog1.FileName;
       Form1.Mediaplayer1.Open;
       Form1.Mediaplayer1.Play;
       Form1.Liedtitel.AlphaChannel := 1;
       Form1.Liedtitel.Visible := true;
       Form1.Liedtitel.Caption := '♪ Play song: ' + ExtractFileName(ausgelesen[aktuell]);
       aktuell := aktuell+1;
       warten := 2000;
       ausgelesen.Free;
     end;

so würde ich das machen.