Генератор паролей с учетом регистра

[Glavos]

Тема написана для новичков в программировании на Delphi.
Простейшая процедура генерации пароля:

procedure TForm1.Button1Click(Sender: TObject);
const
gen:array[0..5] of String=('1','2','a','B','/','*');//сюда вписывай любое кол-во символов
var
pass:String; //переменная, где будет храниться пароль
i:Integer; //счетчик для цикла
x:Integer; //длина пароля
begin
x:=7; //можешь указать любое значение например StrToInt(Edit1.Text)
for i:=0 to x do //шагов будет 8 т.к. 0 тоже значение
begin
pass:=pass+gen[Random(5)]; //записывем в "pass" случайное значение массива
end;
Edit1.Text:=pass;//отображаем полученный пароль в Edit1
end;

Незабудь записать:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

[Dinmaite]

gen:array[0..5] of String=('1','2','a','B','/','*');//сюда вписывай любое кол-во символов

+ надо указывать увеличивающуюся длину массива.


procedure TForm1.Button1Click(Sender: TObject);
var
pass:String; //переменная, где будет храниться пароль
i:Integer; //счетчик для цикла и длина пароля
begin
randomize;
i:=strtoint(edit2.text); //можешь указать любое значение длины пароля
for i:=0 to i do //шагов будет 8 т.к. 0 тоже значение
pass:=pass+edit1.text[random(length(edit1.text))]; //записывем в "pass" случайное значение из строки
Edit3.Text:=pass;//отображаем полученный пароль в Edit1
end;


Так выглядит более цивильно мне кажется.
В аттаче примерный внешний вид.