aus den gleichen 4 zahlen am anfang werden auch die gleichen 4 zeichen bei dem 2. und 3. teilstring erstellt
deshalb solltest du schauen, dass keine zahl bei deiner random funktion doppelt vorkommt
Delphi-Quellcode:
function RandomPassword(PLen:Integer):String;
var
str:String;
i: integer;
begin
Randomize;
str:='0123456789';
Result:='';
repeat
i := Random(Length(str))+1;
Result:=Result+str[i];
delete(str,i,1);
until(Length(Result)=PLen)
end;
z.b. benutzen