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.