procedure TSpiel.Reaktion (Sender: TObject);
var Zahl1,Zahl2:integer;
begin
if gesperrt = false
then
begin
if zErsteKarte
then
begin
zKarte1 := TKarte(Sender);
zKarte1.ZeigeZahl;
zErsteKarte := false;
end
else
begin
zKarte2 := TKarte(Sender);
zKarte2.ZeigeZahl;
Zahl1 := zKarte1.getZahl;
Zahl2 := zKarte2.getZahl;
if Zahl2 <> Zahl1 then
begin
gesperrt:=true;
hWarteZeit.Enabled := true;
end
else
begin
zAufgedeckt := zAufgedeckt + 2;
kSpielfeld.LbAufgedeckteZahlen.Caption := IntToStr(zAufgedeckt);
if zAufgedeckt = 20 then
begin
gesperrt := true;
ShowMessage('Gewonnen!!');
end;
end;
zSpielzuege := zSpielzuege +1;
kSpielfeld.LbSpielzuege.Caption := IntToStr(zSpielzuege);
zErsteKarte := True;
end;
end;
end;