Генерация случайных...

[Яр|/||< (^_^)]

Как сгенерировть случайную ячейку типа H15W3 места знаков не имеют значения (нечего крякать не собираюсь )

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var i,k : integer;
begin
randomize;
Edit1.Clear;
for i:=1 to 5 do
 begin
 if random(100)>50 then
  k := random(26)+65
 else k := random(10)+48;
 Edit1.Text := Edit1.Text + chr(k);
 end;

end;

Как сгенерировть случайную ячейку

Что значит ячейку?

[Яр|/||< (^_^)]

Просто я спросил как один такой отсек сгенерироваать а у меня будет формата XXXXX-XXXXX-XXXXX-XXXXX-XXXXX