TCheckBox und das Bedingungsproblem

[KodeZwerg]

Zitat von iTzElKay:

Code:

 if ( Sender = player1CB3Pasch ) then
    if wurdeGewuerfelt = false then begin
    ( Sender as TCheckBox ).Enabled := true;
    ( Sender as TCheckBox ).Checked := false;
    end
    else begin
    if dreierPasch = true then begin
      wert1Label3Pasch.Caption := IntToStr( alleWuerfelErgebnis );
      ergebnisUnten1();
      ( Sender as TCheckBox ).Enabled := false;
      wuerfelReset();

      if niSpielerAnz = 2 then begin
        spielerWechsel( Sender as TObject );
        wuerfelReset();
      end;
     end;
    end
    else if dreierPasch = false then
    begin
      MessageBox(0, 'Es ist kein Dreier Pasch vorhanden. Bitte wählen Sie etwas anderes!', 'Hinweis', MB_OK);
      ( Sender as TCheckBox ).Checked := false;
    end;

So sollte es nur einmal passieren.