Zufall wiederholt sich??

[Go2EITS]

procedure TForm1.FormCreate(Sender: TObject);

Ich denke da ist Randomize gut aufgehoben. Da liegt Dein erster Fehler!

Randomize erzeugt, so weit ich weiss, aus Uhrzeit und Datum neue Zufallszahlen.

Füge mal ein Showmessage('Hier ist Randomize'); direkt bei Randomize und Showmessage('Hier ist die Verarbeitung' ein.) bei Deiner Procedur, die die Zufallszahlen verarbeitet. Dann siehst Du was passiert und Randomze überhaupt aufgerufen wird.

Randomize darf nur einmal aufgerufen werden.

Deine Procedure zur Verarbeitung muss nach Randomize aufgerufen werden. Sonst bingt es nichts, außer immer gleicher Zufallszahlen.

Falls Du immer noch gleich Zufallswerte hast, muss Du Randomize einfach mal woanders hinpacken und vor einem Random aufrufen.

Falls es immer noch nicht klappt, bitte ganzen Code hier zeigen.

CU
Go2EITS