[JCooper]

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

Код:

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