Mediaplayer - 'Kein MCI-Gerät geöffnet'

[WeTec]

ok, vieleicht sollte ich noch sagen das ich ein OnNotify-Ereigniss erstellt habe:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
    If MediaPlayer1.Notify = True then MediaPlayer1.Play
    else MediaPlayer1.Stop;
end;

quasi als Endlosschleife. Wenn ich das jedoch auskommentiere kommt auch keine fehlermeldung.

Die Schleife wird durch folgenden Code gestartet:

Delphi-Quellcode:

var
  Dateiname: String;

...

    with MediaPlayer1 do
    begin
      FileName := Dateiname;
      Open;
      Play;
      Notify := True;
    end;