Générer un mot de passe de manière aléatoire

function RandomPassword(PLen:Integer):String;
var
str:String;

begin
Randomize;
//l'ensemble des caractères
str:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
Result:='';
repeat
Result:=Result+str[Random(Length(str))+1];
until(Length(Result)=PLen)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//génère un mot de passe de 10 caractères
Label1.Caption:=RandomPassword(10);
end;