求助：integer overflow?是怎么回事，谢谢！

Question

程序执行过程中会偶尔出来这样的对话框，但是点击确定后程序仍旧可以继续执行，是怎么回事呢？出现时机是随机的。不过出现一次后就不停地出现了。

Answer 1

能不能说具体一点，我还是不太明白，刚才连续出现了。我的程序里面有很多inttostr,strtoint等的类型转换，跟这个有关系吗？

Answer 2

procedure TFrm_Main.TimeStartClassTimer(Sender: TObject);
begin
  EndTime:=now;
  TotalTime:=EndTime-StartTime;
  Frm_Main.StatusBar1.Panels[4].Text:='上课时间:'+timetostr(TotalTime);
end;我调试运行过程中，出现错误指向这条语句Frm_Main.StatusBar1.Panels[4].Text:='上课时间:'+timetostr(TotalTime);
这就是一个小过程吧。
我觉得可能的错误出现在timetostr，不知道是不是？

Answer 3

出错没什么规律，比如刚才突然间就不断出现，而有的时候半天也不出错。
很感谢cuteant的关注。