If Abfrage funktioniert nicht korrekt

[Problemmacher]

Also damit nicht immer die gleiche Zahl rauskommt habe
ich noch zu Beginn natürlich

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

Randomize;

end;

Oder worauf möchtest du hinaus?