Delphi. как добавить в Memo 5 строк, длина каждой 10 символов.

[Nostalgia]

как добавить в Memo 5 строк, длина каждой 10 символов. Добавление должно происходить при нажатии на кнопку. ps delphi

[uberchel]

Вот:

procedure TForm1.btn1Click(Sender: TObject);
var
 I: integer;
begin
 for i:= 1 to 5 do
 mmo1.Lines.Add('1234567890');
end;

[Nostalgia]

А как сделать так, чтоб при нажатии на кнопку предлагалось ввести строки длиной 10 символов, их должно быть 5. Тоесть чтоб не было заранее известно что будет занесено в мемо, как в предыдущем примере.

[Google2010]

procedure TForm1.Button1Click(Sender: TObject);
var
 I: integer;
begin
 for i:= 1 to 5 do
memo1.lines.add(InputBox('name your program', 'Пожалуйста, введите строку', ''));
end;