časová smyčka – Delphi – Fórum – Programujte.com

Zdravím, mám naspanou časovou smyčku viz. níže, ale nevím jak dopočítat konstantu.Dále by mě zajímalo jestli mi správně funkce QueryPerformanceFrequency vrací frekvenci 3.5GHz, jelikož můj cpu běží na 2GHZ.

procedure TForm1.uSleep(microseconds: cardinal); 

var freq, tStart, tStop, time: Int64; 

begin 

  if QueryPerformanceFrequency(freq) then begin 

    QueryPerformanceCounter(tStart); 

    repeat

      QueryPerformanceCounter(tStop); 

      time := ((tStop - tStart) * konstanta) div freq; 

    until time > microseconds; 

  end 

  else MessageBox(handle,'The installed hardware does not support a high-resolution performance counter!', 'Warning', MB_ICONERROR); 

end;