da fuq

              vTicks := GetTickCount64() - vTicks;
              vtacks := 1000 - vTicks;
              Write('   >>  ' + inttostr(vTicks) + ' > ' + inttostr(vtacks));


>>  844 > 15677


???