1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure UpdateTimeStamp(H: THandle);
var
  FT: TFileTime;
begin
  GetSystemTimeAsFileTime(FT);
  SetFileTime(H, nil, nil, @FT);
end;
//oder sowas:
Begin
    sQpcMinResMls := FormatOutput(Format('%3.9n',[aTimer.getTimeMeasureAs(tsMilliSec,1,tkQPC)]));
    sQpcMinResMic := FormatOutput(Format('%3.9n',[aTimer.getTimeMeasureAs(tsMicroSec,1,tkQPC)]));
    sQpcMinResNan := FormatOutput(Format('%3.9n',[aTimer.getTimeMeasureAs(tsNanosSec,1,tkQPC)]));
    sQpcApiOvdNat := FormatOutput(IntToStr(aTimer.FQpcOverhead)+' units ');
    aReal := aTimer.GetOptimalMeasure(aTimer.FQpcOverhead, tkQPC, aTimeScale);
    sQpcApiOvdOpt := Format('%s (%3.9n)',
                     [TimeScale2Str[Ord(aTimeScale)], aReal ]);
  End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button47Click(Sender: TObject);
var   a, b, c: Int64; r: real;
begin
  QueryPerformanceFrequency(a);
  QueryPerformanceCounter(b);
  Sleep(1000); //<<<< Die Zeitdauer dieses Befehls wird gemessen
  QueryPerformanceCounter(c);
  r:= (c - b) * 1000 / a;
  Label47.Caption := FloatToStrF(r, ffFixed, 12, 3)+' msec';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure SystemTimeWait(milliseconds: cardinal);
var
    S1: _FILETIME;
    S1V: Int64 absolute S1; //Equal Memory for S1 and S1V; simply an alias definition
    S2: _FILETIME;
    S2V: Int64 absolute S2; //Equal Memory for S2 and S2V; simply an alias definition
Begin
    GetSystemTimeAsFileTime(S1);
    S2V := S1V + milliseconds * 10 * 1000; //Convert msec to hnsec

    While S1V < S2V do
        GetSystemTimeAsFileTime(S1);
end;

procedure DelayQPC(t: cardinal);//entspricht Deinem 'procedure RDTSCDelay(milliseconds: cardinal);'
var  a, b: Int64;
Begin
    QueryPerformanceFrequency(b);
    QueryPerformanceCounter(a);
    b := a + (b * t) div 10000;
    While a < b do QueryPerformanceCounter(a);
end;