[JCooper]

Все нашел! Усредненный фпс за секунду.

Код:

starttime:=GetTickCount;
...
//в цикле перерисовки
Inc(frameN);
time:=GetTickCount;
if (time - starttime)>1000 then
begin
      FPS:=Round(frameN*1000/(time - starttime));
      starttime:=time;
      frameN:=0;
end;
...

[hasherfrog]

Kuper
Всё правильно, но я хочу кое-что добавить, може Вам и пригодиться... Если Вы просто считаете FPS для вывода на экран, это одно. А вот если Вы планируете использовать FPS для внутренних нужд, то нужно использвать "усреднённое" среднее значение. На очень примитивном уровне надо взять предыдущий FPS и текущий, сложить, поделить пополам.

[JCooper]

hasherfrog
Спасибо за совет. Мне фпс надо так, для себя больше.