解决GetTickCount的问题

rocedure TForm4.FormCreate(Sender :TObject);
var
  I       :UInt64;
  NowTick :LongWord;

  OutSec :Word;

  procedure Judge1();
  var
    Tmp :UInt64;
  begin
    Tmp := I + OutSec * 1000;     //时长右边界

    if Tmp > LongWord.MaxValue then begin
      if (I > NowTick) and (NowTick > Tmp - Longword.MaxValue) then
        ShowMessage(‘ok2‘);
    end
    else begin
      if NowTick >= I then begin
        if NowTick > Tmp then
          ShowMessage(‘ok1‘);
      end
      else
        ShowMessage(‘ok3‘);
    end;
  end;

begin
  I := 10;          //i是时长左边界
  OutSec := 2;      //超时秒数
  NowTick := 2020;    //当前时间
  Judge1();

  I := 10;
  OutSec := 2;
  NowTick := 2010;
  Judge1();

  I := 10;
  OutSec := 2;
  NowTick := 2009;
  Judge1();

  I := Longword.MaxValue - 3000;
  OutSec := 2;
  NowTick := Longword.MaxValue - 2000;
  Judge1();

  I := Longword.MaxValue - 3000;
  OutSec := 2;
  NowTick := Longword.MaxValue - 1000;
  Judge1();

  I := Longword.MaxValue - 3000;
  OutSec := 2;
  NowTick := Longword.MaxValue - 999;
  Judge1();

  I := Longword.MaxValue - 3000;
  OutSec := 2;
  NowTick := 5;
  Judge1();

  I := Longword.MaxValue - 3000;
  OutSec := 2;
  NowTick := Longword.MaxValue - 50;
  Judge1();

  I := Longword.MaxValue - 300;
  OutSec := 2;
  NowTick := Longword.MaxValue - 50;
  Judge1();

  I := Longword.MaxValue - 300;
  OutSec := 2;
  NowTick := 20;
  Judge1();

  I := Longword.MaxValue - 300;
  OutSec := 2;
  NowTick := 1700;
  Judge1();

  I := Longword.MaxValue - 300;
  OutSec := 2;
  NowTick := 1701;
  Judge1();

end;