[HunteRus]

Или так:

Код:

Procedure writeToEdit(i, k, l) if i < k then
begin
  Form1.Edit1.Text := Form1.Edit1.Text + IntToStr(Random(l)) + ' ';
  WriteToEdit(i + 1, k, l);
end;

...

Form1.Edit1.Text := ' ';
WriteToEdit(1, 10, 10);