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