INDY 10.0.52 "range check error" fix

用户Indy10.0.52版本的SMTP写的发送邮件程序，运行时候长了后会出现 Range check error错误
解决办法为修改，INDY的
System/IdGlobal.pas中的代码
  

INDY 10.0.52 "range check error" fix

  --- System.original/IdGlobal.pas        2006-04-28 10:23:48.000000000 +0800
  +++ System/IdGlobal.pas 2006-05-01 10:03:52.640519100 +0800
  @@ -1377,7 +1377,7 @@
   begin
     if Windows.QueryPerformanceFrequency(freq) then begin
       if Windows.QueryPerformanceCounter(nTime) then begin
  -      Result := Trunc((nTime / Freq) * 1000);
  +      Result := Trunc((nTime / Freq) * 1000) and High(Cardinal);
       end else begin
         Result := Windows.GetTickCount;
       end;