[Mr.Serx]

Всем доброго времени суток!

Подскажите пожалуйста, как сделать так, что бы программа выписывала каждое число в [Memo1] введенное в от [Edit1] до [Edit2]

[m1sclick]

Код:

1 2 3 4 5 6 7 8 9

var i,j:integer; begin i:= strtoint(Edit1.Text); j:= strtoint(Edit2.Text); while i<=j do begin inc(i); Memo1.Lines.Add(inttostr(i)); end;