Memory-Spiel: Ideen

[XardasLP]

Ok danke

Nächstes Problem:

Delphi-Quellcode:

if (RBMusikJA.Checked = True) then
begin
FormSpiel4x3.MediaPlayer1.Close;
FormSpiel4x3.MediaPlayer1.FileName := FormSpiel4x3.OpenDialog1.FileName;
FormSpiel4x3.MediaPlayer1.Open;
FormSpiel4x3.TimerMusik.Enabled := True;
FormSpiel4x3.LabelMusik2.Caption := FormatDateTime('hh:nn:ss',FormSpiel4x3.MediaPlayer1.Length / 1000 / (24*60*60));
if (CBAutoPlay.Checked = True) then FormSpiel4x3.MediaPlayer1.Play;
end;

Musik öffnen klappt.

Nun soll er die Musik stoppen und die neu ausgewählte Musik ohne diesen Fehler abspielen:
"---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EMCIDeviceError aufgetreten. Meldung: 'No MCI device open'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Help
---------------------------"

Delphi-Quellcode:

procedure TFormSpiel4x3.ImageOrdnerClick(Sender: TObject);
begin
TimerMusik.Enabled := False;
LabelMusik2.Caption := '00:00:00';
MediaPlayer1.Stop;
MediaPlayer1.Eject;
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
//MediaPlayer1.Play;
LabelMusik2.Caption := FormatDateTime('hh:nn:ss',FormSpiel.MediaPlayer1.Length / 1000 / (24*60*60));
TimerMusik.Enabled := True;
end;
end;

mit Play stürzt es genauso ab
Wo liegt der Fehler o.o ?