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

var
  FMaximumFrameRate: double;
  FLastSleep: double = 0;
 
procedure LimitFrameRate(atd: double); //"atd" ist die Zeitdifferenz zwischen zwei Frames - inklusive der "Sleeptime"
var
  sleeptime: Double;
begin
  sleeptime := 1000 / FMaximumFrameRate - (atd - FLastSleep);
  if sleeptime > 0 then
  begin
    Sleep(trunc(sleeptime));
    FLastSleep := sleeptime;
  end else
    FLastSleep := 0;
end;					

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

procedure TMainform.loop(Sender: TObject; var Done: Boolean);
begin
  QueryPerformanceCounter(StartCount);
  Render;
  QueryPerformanceCounter(EndCount);

{...}

  Done := false;
end;					

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

procedure TMainform.loop(Sender: TObject; var Done: Boolean);
begin
  QueryPerformanceCounter(StartCount);
  Render;
  QueryPerformanceCounter(EndCount);

  frametime_ms := (((EndCount - StartCount) / Freq ) * 1000);

  LimitFrameRate(round(1/60 - ((EndCount - StartCount)/Freq)));   // <- ist das überhaupt korrekt so? :o

  Done := false;
end;					

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

procedure TMainform.loop(Sender: TObject; var Done: Boolean);
begin
  QueryPerformanceCounter(StartCount);
  Render;
  QueryPerformanceCounter(EndCount);

  frametime_ms := (((EndCount - StartCount) / Freq ) * 1000);     //  <- Richtig!

  LimitFrameRate(round(1/60 - ((EndCount - StartCount)/Freq)));   //  <- Falsch!
  // Warum rundest du? Es wird doch Typ Double verlangt.
  // Außerdem brauchst du den Wert in Millisekunden!

  LimitFrameRate(frametime_ms + FLastSleep);  // Probier das mal.

  Done := false;
end;					

1:
2:
3:
4:
5:
6:

TMainform.Timer1Timer(Sender: TObject);
begin
  QueryPerformanceCounter(StartCount);
  Render;
  QueryPerformanceCounter(EndCount);
end;