كيف يتم إظهار عدد سطور memo متتالية

[Ramzi2]

السلام عليكم أحبابي في الله
كيف يتم إظهار عدد سطور memo متتالية بالتسلسل حسب الرقم المدخل في edit
مثلا : كما في الصورة
نعطي قيمة edit الرقم 7
ونضغط ok تظهر في memo
7 سطر بالتسلسل من 1 الى 7
قيمة edit مثلا 2 تظهر بالتسلسل
1
2

[karika2]

كود :

var i:integer;

كود :

procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; i:=StrToInt(Edit1.Text); for i:=0 to i do begin Memo1.Lines.Add(IntToStr(i)) end; end;