"Sicheres" Passwort erzeugen...Wie?

[robinWie]

Ich habe mal bemerkt das, wenn ich random (mit randomize davor) verwende irgendwie das erste ergebniss immer das gleiche ist.
Ich verbinde darum jetzt randomize immer mit 'ner for schleife.
z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  RandomI, I: integer;
begin
    for I:=0 to 1000 do begin
      Randomize;
      RandomI:=random(10)+1;
    end;
end;