- Done := False;
- QueryPerformanceCounter(TNow);
- IsFPS := RoundTo(Freq / (TNow - CalcTime), -2);
- if IsFPS > MaxFPS then
- begin
- Sleep(1);
- Exit;
- end;
- SFactor := (TNow - CalcTime) / Freq;
- Render;
- Timer := Timer + TNow - CalcTime;
- if Timer > Freq then
- begin
- Timer := Timer - Freq;
- Caption := 'smOglympia - ' + FloatToStr(IsFPS) + ' FPS';
- end;