توسط فانکشن زیر می توانید کلمات تصادفی با طول PLen و کاراکترهای داخل str ، بسازید.

function RandomPassword(PLen: Integer): string;
var
str: string;
begin
Randomize;
//Taeine caracterhayei ke estefade shavand
str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

شیوه استفاده :

procedure TForm1.ButtonClick1(Sender: TObject);
begin
Button1.Caption := RandomPassword(10);
end;