Ratezahl 2 Delphi (leicht)

[cran7]

also ich zeig hier ma wie das gerüst sein könnte^^ (berichtigt mich, wenn ich mal wieder n paar fehler mach )

Delphi-Quellcode:

var
  Form1: TForm1;
  versuche : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // was du machn wolltest

versuche := versuche + 1;
Label2.Caption := IntToStr(versuche);

if versuche = 10 then
  Label1.Caption := 'Maximale Rateanzahl erreicht, Neue runde?';
  Button1.Enabled := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// das der button womit man ne neue raterunde anfangen kann
  versuche := 0;
  Button1.Enabled := true;
  Label1.Caption := 'Rate die Zahl';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  versuche := 0;
end;

end.

so ungefähres gerüst xD