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;