[Страдалецъ]

Генератор паролей делаем? Так там еще регистр символов надо учитывать.
Вот вам генератор - развлекайтесь:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 PassLen, i: Integer;
 Complexity: record Digit,Alpha,Registr: Boolean end;
 CharSet, Pass: String;
begin
 Complexity.Digit := CheckBox1.Checked;
 Complexity.Alpha := CheckBox2.Checked;
 Complexity.Registr := CheckBox3.Checked;
 CharSet := '';
 if Complexity.Digit then CharSet := CharSet + '012345679';
 if Complexity.Alpha then CharSet := CharSet + 'qwertyuiopasdfghjklzxcvbnm';
 if Complexity.Registr then CharSet := CharSet + 'QWERTYUIOPASDFGHJKLZXCVBNM';
 if CharSet = '' then Exit;
 PassLen := 10;
 SetLength(Pass, PassLen);
 for i := 1 to PassLen
 do Pass[i] := CharSet[Random(Length(CharSet))+1];
 Memo1.Lines.Add(Pass);
end;

end.