Random в Delphi

[SweetOpium]

Добрый день, я новичок, и особо с программированием не сталкиваюсь, но мне нужно сделать одну небольшую штуку. Собственно отсюда и вопрос:
У есть поле Edit1, нужно сделать так чтоб по нажатию кнопки, на поле Edit1 выводились символы (буквы и цифры) на рандом (к примеру 5 символов)?
Заранее очень благодарен за помощь

[Stilet]

var i:integer;
begin
caption:='';
for i:=1 to 5 do Caption:=Caption+chr(ord('a')+random(33));
end;

[Kostia]

var
  i: integer;
begin
  Edit1.Text:='';
  for i:=1 to 5 do
    Edit1.Text:=Edit1.Text+chr(33+random(223));
end;

[SweetOpium]

А можно чтоб эти символы были только из Латинские, и цифры, без всяких знаков и непонятных букв ?))) (типо !,$<# и тд)?

[evg_m]

использовать список допустимых символов
const
symbols='qwertyuiopzxc';

for i:=1 to 5 do
Edit1.Text:=Edit1.Text+symbols[random(length(symbils))];

[SweetOpium]

Теперь он при нажатии кнопки постоянно записывает текст в Edit1, не стирая предидущего ((

[[Smarik]]

сделай кнопку очистки или выпадающее меню edit1.clear

[Airou]

Зачем еще кнопку или выпадаюее меню? О_о

Просто в процедуре допиши в самом начале edit1.clear
И каждый раз когда нажмешь на кнопку текст стерется, а новый туда запишется.

[SERG1980]

Не забываем Randomize

[SweetOpium]

Сообщение от Airou

Зачем еще кнопку или выпадаюее меню? О_о

Просто в процедуре допиши в самом начале edit1.clear
И каждый раз когда нажмешь на кнопку текст стерется, а новый туда запишется.

Напиши плиз код как это должно выглядеть, с 5 рандом символами (латин алф.) и с затиранием старого текста новым