program SysTmrCycle;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

  var a,b:DWORD; c:bool;
begin
  c:=false;
  GetSystemTimeAdjustment(a,b,c);
  WriteLn('System time adjustment: '+FloatToStr(b / 10000)+' ms.');
  WriteLn;
  Writeln('Press any key for an exit...');
  Readln;
end.

// begin_end (C) 2009