function TForm1.RandomPassword(PLen: Integer): string;
  var
    str: string;
  begin
    Randomize;
    str := 'abcd[efgh[ijklmn*opqrstuvwxyzABC=DEF=GHIJKLMNOPQRSTUVWXYZ';
    Result := '';
      repeat
        Result := Result   str[Random(Length(str))   1];
      until (Length(Result) = PLen)
end;    procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  label1.Caption := RandomPassword(10); //生成10字元的密碼
end;