计数问题

Question

我有这样一个需求，就是有一个文本框（里面是用来显示数字的）然后一个增加按钮  一个减少按钮。
 
我要实现的功能是：当点击一下增加按钮的时候文本框中就显示一个1字，再点一次就变成2，一次的点击几下就在2文本框中显示数字几（类似于计数器的样子）还有一个是减少按钮，效果同增加一样，点下减少就减少一个数字。

Answer 1

label1.Caption := 0;
增加按钮事件
label1.Caption := IntToStr(Inc(StrToIntDef(label1.Caption, 0)));减少按钮事件
label1.Caption := IntToStr(Dec(StrToIntDef(label1.Caption, 0)));

Answer 2

SmallHand   给的程序不能运行啊！

Answer 3

var
  i:integer;
begin
  i := StrToIntDef(label1.Caption, 0);
  Inc(i);//减少用Dec（i);
  label1.Caption := IntToStr(i);
end;