Zahlenspiel 3*mal gewinnen dann verloren anzeigen

[Klaus01]

Delphi-Quellcode:

private
  errorCount;

procedure TForm2.Button1Click(Sender: TObject); 
var 
  x,x1: integer; 
  ergebnis: boolean; 
begin 
  randomize; //das sollte im onCreate stehen
  x:= random(100)+1; 
  edit2.text:= inttostr(x); 
  x1:= strtoint (edit1.text); // hier sollte noch abgefangen werden wenn im Edit1.text keine Zahl steht
  if x=x1 then 
    showmessage ('Gratulation Sie haben gewonnen') 
  else 
    begin
      showmessage ('Sie haben leider verloren'); 
      inc(errorCount);
    end;

   if errorCount = 3 
     then showmessage (' Sie haben 3 mal verloren das spiel ist zuende') ;
end;

Vor dem Spielanfang sollte der ErrorCount noch auf 0 gesetzt werden.

Grüße
Klaus