[Snake22]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,tmp:Char;
  dlina, i,X:integer;
begin
Edit1.Clear;
Randomize;//подключаем рандом
dlina:=10; //кол-во символов в пароле
for i:=0 to dlina-1 do begin
a:=Inttostr(random(9))[1] //генерируем цифру
b:=Char(65+Random(25));//заглавную юукву
c:=Char(97+Random(25));//строчную
X:=Random(3);
case x of //выбираем рандомно либо цифру либо заглавную/строчную
  0: tmp:=a;
  1: tmp:=b;
  2: tmp:=c;
  end;
 Edit1.text:=Edit1.Text+tmp;  //добавляем к паролю
 end;
end;

если нужны русские буквы то они в диапазоне 195-255