"Wahrscheinlichkeitsrechner"

[rudi96]

Moin allerseits!
Ich hab vor nicht allzu langer Zeit Delphi und arbeite grad an einem Spaßprogramm, einem sogennanten Wahrscheinlichkeitsrechner. Man gibt etwas ein und per Zufallszahlen wird irgendeine Prozentzahl angezeigt, z.B. 63,54%.
Kann mir bitte jemand sagen wie ich erreiche, dass eine Zufallszahl, sobald sie angezeigt wird, nicht verändert werden kann bis man auf Neu klickt (im moment kann man schreiben was man will und so oft auf Ausrechnen klicken, bis einem die Wahrscheinlichkeit gefällt)?
Der Variablenteil ist:

var
  Form1: TForm1;
  Zahl1, Zahl2: Integer;

Der Quelltext von Ausrechnen ist:

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  Zahl1 := random(100);
  Zahl2 := random(100);
  Label1.Caption := IntToStr (Zahl1) + ',' + IntToStr (Zahl2) + '%';
    
end;

und der Quelltext von Neu ist:

procedure TForm1.Button2Click(Sender: TObject);
begin
 Label1.Caption := '';
 Edit1.Text := '';
 Edit1.SetFocus;

Danke im voraus!

[Christian Marquardt]

In dem du Button1 nach dem ersten Durchlauf solange sperrst bis Button2 geklickt wird Stichwort enabled

[rudi96]

Danke!
Aber wie genau geht das?

[Christian Marquardt]

In Button2 einfügen:
Button1. Enabled:=true;

In Button1 am Ende einfügen
Button1. Enabled:=false;

[rudi96]

Es hat geklappt!Danke!!!!!!