اضافة عدد لل label1

[x7x2011]

بسم الله الرحمن الرحيم

وضعت فيه label1 و زر Button1 و label1 مكتوب في ال Caption : رقم 0
كيف عند الضغط على button1 يتم زيادة العدد 0 إلى مثلا 1000
وإذا ضغت على الزر مره اخرى يتم زيادته إلى 2000 وهكذا إلى ماله نهاية
يعني يتم إضافة 1000 إلى label1

والسلام عليكم ورحمة الله وبركاته

[n_alhetar]

هلا

كود :

procedure TForm1.Button1Click(Sender: TObject); var i,j:Integer; begin i:=1000; j:=StrToInt(Label1.Caption); Label1.Caption:=IntToStr(i+j) end;

[KaSsiMiTec]

كود :

inttostr(label1.caption)