Генератор паролей

[Dimixis]

Я пишу программу, которая генерирует заданное количесво паролей, заданной длинны.
Мне нужно сделать так, что бы юзер мог выбирать из каких символов составлять пароли
Например так:

• 'A'-'Z'
• '0'-'9'
• Спец. символы
• Все вместе

Как сгенерировать пароли из одного вида символов, я знаю. А вот как сделать что бы было все вместе?

var
  Form1: TForm1;
  DLIN: integer;//Длинна пароля
  KOL: integer; //Количество паролей
  i: integer;
  a:char;// Символ пароля
  f: TextFile;      //Тестовый файл
  buf: string[10]; //Строка файла
  
  implementation

{$R *.dfm}
procedure TForm1.password;
 Begin
   AssignFile(f,'pas.txt'); //Открываем файл для записи
   rewrite(f);
 
 DLIN:=strToInt(Edit1.Text);//Длинна 
 KOL:=strToInt(Edit2.Text);//Количество

randomize;
 for i:=1 to kol do begin
 for i:=1 to dlin do Begin

 a:=chr(65+Random(25)); //Символ пароля(Большие Русские Буквы)
  write(f, a);// Запись символа в файл
  end;
  writeln(f,'');//Отделение паролей Enter
  end;
closefile(f);

AssignFile(f,'pas.txt');//Открытие файла для чтения
reset(f);

while not EOF(f) do
     begin
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;

   CloseFile(f); // закрыть файл
   end;

И еще, как сделать так, что бы нельзы было изменять размер окна проги?

[bill]

1. Так. Насколько понимаю стоит просто сделать общий random- и там он будет выбирать случайно любые символы. может конечно и одного пункта не попасть. Поэтому стоит просто делать проверку в каком диапозоне находятся ваши рэндомные символы. Если не удовлетворяют условию что например должны быть все столько-то раз то делать заново(while я бы использовал)
2. у свойства формы есть процедура canresize и там стоит булевское выражение -Resize: Boolean
Я б изменил просто resize на false.

[Dimixis]

Спасибо, щас попробую