Генератор символов

Всем привет.
Подскажите плз. как сделать генератор случайных символов.
мне надо так что бы в едит генерировались символы от A до Z
и что бы генерировалось количество символов.

 

Функция

Code:

function GenStr(len:integer):string;
var s:string; i:integer;
begin
s:='';
randomize;
for i:=1 to len do
s:=s+chr(ord('A')+random(ord('Z')-ord('A')));
result:=s;
end;

Пример использования

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=GenStr(10);
end;

где 10 - длина генерируемой строки

 

спасибо. а как с генерировать в виде slovo1234 , а то есть и цифры и буквы?