Edit1 ve Edit2 arasındaki sayılar

2Edit,1button,1memo ekle,butona basıldığında edit1 ve edit2 arasındaki sayıları memoya yazdıran programın kodu=

Kodu;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,I:word;

begin

a:=StrToInt(edit1.Text) ;

b:=StrToInt(edit2.Text) ;

Memo1.lines.Clear;

for i:=a to b do

memo1.Lines.add (IntToStr(i));

end;

end.