Du machst die gleichen Fhler wie dein Vorgänger:
Delphi-Quellcode:
function PassWort(PLen: Integer; vorrat: string): string;
begin
Randomize; // <- !!!
Result := '';
repeat
Result := Result + vorrat[Random(Length(vorrat)) + 1];
until (Length(Result) = PLen)
end;
Randomize nur einmal beim Programmstart aufrufen!