[gadmaker]

Помогите правильно задать FPS для программы. Пытаюсь сделать простенькую игру, но немогу правильно задать, а затем измерить частоту обновления сцены:

Код:

var
 Time: integer; // Время
 Tick: Cardinal;

function GameSpeed(Speed: integer): integer; // Установить скорость игры
 begin
  sleep(1000 div Speed);
  Result := 1000 div (GetTickCount-Tick);
  Tick := GetTickCount;
 end;

while Time < 1000 do
 begin 
  Time := Time+1;
  Win.Caption = IntToStr(GameSpeed(60));
 end;

Проблема в том, что вместо ожидаемых 60 кадров в секунду данная конструкция выдаёт только 32.

[Страдалецъ]

Ну не знаю, у меня данная штука выдает такой вот ряд значений:

0
66
31
66
62
66
62
62
66
62
62
66
62
66
62
62
66
62
32
62
66
62
62
66
62
62
66
62
66
62
62
66
62
62
32
66