Habe mir die Kommentare in dem Link angeschaut und dann die SleepTime variabell gemacht.
Ergebnis:
Egal ob Sleep(1) oder Sleep(15) => Ist war 15-16 ms
ab 16 waren es dann 30-31 ms

Gibt es eine Möglichkeit die erhöhte Auflösung von Delphi beizubehalten?

Selbst timeBeginPeriod aufrufen?

Oder gar nicht Sleep benutzen und die Zeit selbst verwalten.

Ja, OK. Hätte noch weiter nach dem timeBeginPeriod schauen sollen.

Siehe ClockRes v2.1

Nach der Änderung mit ClockRes kann man es mit folgendem Code überprüfen:

zusammenfalten · markieren

Delphi-Quellcode:

program SystemTimeAdjustment;

{$APPTYPE CONSOLE}

uses
// SysUtils, windows;
  System.SysUtils, Winapi.Windows;

  var a,b:DWORD; c:bool;

begin
  GetSystemTimeAdjustment(a,b,c);
  WriteLn('System time adjustment: '+FloatToStr(b / 10000)+' ms');
  WriteLn;
  Writeln('Press any key...');
  Readln;
end.