sal 1150

الاخ العزيز

شكرا على الجواب لكني فعلت بطريقة تحتلف عن طريقتك لكنها ذات المعنى , لكني احصل على ارقام غريبة

procedure TForm1.Button6Click(Sender: TObject);

var i : integer;

begin

i := 0;

memo1.lines.add (inttostr(i));

i:=i+1;