ListBox

[Яшар]

День добрый! Вот такой вопрос - имеется ListBox и Edit, надо что бы вписывая напрмер в Edit число 6 и при нажатие на кнопку в ListBox прописывалось 6 строчек от 1-го до 6-ти. Понимаю, что вопрос лёгок для знающих, а вот я пока новичёк. Помогите плиз. Для сведения пользуюсь Delphi XE

[Человек_Борща]

procedure button1Click;
var
  i,j:integer;
begin
j:=StrToInt(Edit1.Text);
For i:=1 to j do
begin
ListBox1.Items.add(IntToStr(i));
end;
end;

[Яшар]

Огромное Вам спасибо!