da fuq

var
    vTacks: int64;
    vTicks, vSkippedCount: UInt64;
...
begin
...
    vTicks := GetTickCount64() - vTicks;
    vTacks := 1000 - vTicks;
    Write('   >>  ' + inttostr(vTicks) + ' > ' + inttostr(vTacks));


>>  844 > 15677


???