[m1sclick]

Код:

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;