Versuche werden nicht gezählt

[blawen]

Problem 1:
Zu Beginn musst Du Randomize aufrufen:

Delphi-Quellcode:

...
Randomize;
Zahl1 := Random(100);
...

Problem 2:
Jedes mal wenn Du den Button drückst, wird die Variable Versuch auf Null zurückgesetzt.
In diesem Fall musst Du die Variable ausserhalb der Function definieren (globale Variablen) und auf Null zurücksetzen.
Innerhalb der Function musst Du die Variable dann hochzählen.

Delphi-Quellcode:

var
  Versuch : Integer;


procedure Reset;
begin
  Versuch := 0;
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
  inc(Versuch);
  ...
end;

Beachte aber, dass globale Variablen häufig zu Fehler/Missverständnissen führt und daher mit Bedacht eingesetzt werden sollte.