Kleines Spiel in Delphi

[EDatabaseError]

Delphi-Quellcode:

 // Einsameln der Images bzw. der Haselnüsse

...
public
 procedure HaselnussCheck;
...


procedure TForm1.HaselnussCheck;
begin
 if (Haselnuss1.visible = false) and
    (Haselnuss2.visible = false) and
    (Haselnuss3.visible = false) and
    (Haselnuss4.visible = false) and
    (Haselnuss5.visible = false) and
    (Haselnuss6.visible = false) and
    (Haselnuss7.visible = false) then
 begin
  showmessage('gewonnen');
  close;
 end;
end;

procedure TForm1.Haselnuss1Click(Sender: TObject);
begin
Haselnuss1.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;


procedure TForm1.Haselnuss7Click(Sender: TObject);
begin
haselnuss7.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

procedure TForm1.Haselnuss4Click(Sender: TObject);
begin
haselnuss4.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

procedure TForm1.Haselnuss6Click(Sender: TObject);
begin
haselnuss6.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

procedure TForm1.Haselnuss3Click(Sender: TObject);
begin
haselnuss3.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

procedure TForm1.Haselnuss2Click(Sender: TObject);
begin
haselnuss2.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

procedure TForm1.Haselnuss5Click(Sender: TObject);
begin
haselnuss5.visible:=false;
Mediaplayer1.filename:='misc1-22.wav';
MediaPlayer1.open;
MediaPlayer1.play;
HaselnussCheck;
end;

so müssts funktionieren und hallo in der dp!

du überprüfst bei jedem click ob alle unsichtbar sind wenn ja kommt eine Meldung.

mfg
tobi