String verdrehen

[fortuneNext]

^Hi,
hier mal wieder eine einfache Frage.

Delphi-Quellcode:

  StringCopy := Uncrypted;
  x := 0;
  Randomize;
  For x := 1 to Length(Uncrypted) do
  begin
    StringCopy[x] := Uncrypted[Random(Length(Uncrypted))];
  end;

StringCopy soll eigentlicheine zufällige Reihenfolge von Buchstaben des Strings Uncrypted werden. Aber er wird irgendwie meistens zu kurz, nur 1-2 Buchstaben! (Uncrypted ist 4-9 Buchstaben lang). Wieso das?
fortuneNext

PS: Jaja, ich überseh wieder was sehr simples...