Moin Michael,
auch wenn ich jetzt der dritte bin, der das sagt:
Nimm mal das
Randomize aus der Schleife.

Zitat von
Delphi Hilfe zu Randomize:
Kombinieren Sie in einer Schleife nicht den Aufruf von Randomize mit Aufrufen der Funktion Random.
Normalerweise wird Randomize vor den Aufrufen von Random nur einmal aufgerufen.