delphi 2个按钮实现加减效果

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Label1.Caption := inttostr(strtoint(Label1.Caption) - 1);

end;