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;