Delphi Рандомный пароль delphi

[Lomanu4]

function RandomPassword(PLen: Integer): string;
var
   str: string;
begin
   Randomize;
   //string with all possible chars
  str    := 'abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   Result := '';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
end;

str - это те символы, которые будут рандомизироваться