[AVL]

Да, точно.
В общем, так: под катом - полный код модуля с 2мя функциями подсчета фпс: (первая - отсюда (немного доработал))

unit fps;

interface
var
  t: integer;
  pr_fps, frames, pr_upd:integer;
function fps: integer;
function fps2: integer;

implementation

function fps: integer;
var
  dt: integer;
begin
  dt := GetRelativeTimeMs - t;
  //время с предыдущего вызова функции
  t := t + dt;
  if dt <> 0 then
    fps := 1000 div dt
  else
    fps := 1000;
end;

function fps2: integer;
var
  dt:integer;
begin
  dt := GetRelativeTimeMs - pr_upd;
  if dt<1000 then
    frames:=frames+1
  else begin
    pr_upd:=pr_upd+dt;
    pr_fps:=frames;
    frames:=0;
  end;
  fps2:=pr_fps;
end;


initialization
  t := GetRelativeTimeMs;
  pr_upd:=t;
  pr_fps:=0;
  frames:=0;
end.

В аттаче - скомпиленная из этого кода библиотека.