Zitat:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CreateForm(Sender: TObject);
begin
Randomize;
end;
......
Sag mal kann es sein, dass du formcreate meinst, und nicht createform?
Denn das Randomize wird so gar nicht aufgerufen und du hast defacto nur eins!