maxkleiner

const
  SHighResCounterError = 'High resolution counter error';
  
function CPUClockFrequency: Word64;
var
  Freq : int64;
begin
  Freq := 0;
  if not QueryPerformanceFrequency(Freq) then
    xraise (ETimerError2.Create(SHighResCounterError));