TUpDown的OnClick事件，受到窗体OnClick的干扰。

 在如下代码中，当i为1时，无法关闭窗口，退出程序。
点击关闭按钮，老是弹出“游戏时间不能为零或负数'”对话框。

procedure Tform1.UpDown1click(sender:Tobject,Button:);
var
  i:integer;
begin
  //读入游戏时间
  i:=inifile.readinteger('setup','time',5);
  //修改游戏时间
  if button=btNext then
    i:=i+1         
  else
    if i>0 then
       i:=i-1
    else
       showmessage('游戏时间不能为零或负数'):
   //保存游戏时间
   inifile.writeinteger('setup','time',i);
end;