procedure cxButton1Click(Sender: TObject);
var
 pass : string;
 passl: string;
 passk: string;
 passt : string;
 passm: string;
 passo: string;
 L: Integer;
begin
  begin
    pass := '';
    repeat
    L := Random(256);
    if Chr(L) in ['0'..'9' ] then
    begin
    pass := pass+Chr(L);
    end;
    until Length(pass)=1;
    ePassword.Text := pass;
  end;

  begin
    repeat
    L := Random(256);
    if (Pos (Chr(L), '!@#$%^&*_+-') > 0) then
    begin
    passl := passl+Chr(L);
    end;
    until Length(passl)=1;
    ePassword.Text := pass + passl;
  end;

  begin
    repeat
    L := Random(256);
    if Chr(L) in ['a'..'z'] then
    begin
    passk := passk+Chr(L);
    end;
    until Length(passk)=2;
    ePassword.Text := pass + passl +  passk;
  end;

  begin
    repeat
    L := Random(256);
    if Chr(L) in ['A'..'Z'] then
    begin
    passt := passt+Chr(L);
    end;
    until Length(passt)=2;
    ePassword.Text := pass + passl + passk + passt;
  end;

  begin
    repeat
    L := Random(256);
  //  if (Pos (Chr(L), 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя') > 0) then
    if Chr(L) in ['А'..'Я'] then
    begin
    passm := passm+Chr(L);
    end;
    until Length(passm)=2;
    ePassword.Text := pass + passl + passk + passt + passm;
  end;

  begin
    repeat
    L := Random(256);
//    if (Pos (Chr(L), 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ') > 0) then
    if Chr(L) in ['а'..'я'] then
    begin
    passo := passo+Chr(L);
    end;
    until Length(passo)=2;
    ePassword.Text := pass + passl + passk + passt + passm + passo;
  end;
  DialogInfo('Пароль сгенерирован:' + ePassword.Text );

end;

(Pos (Chr(L), 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ') > 0)

  R := RandomRange(1,33);
    passo := Copy('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ', R, 1);
    R := RandomRange(1,33);
    passo := passo + Copy('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ', R, 1);