[Igor]

Я в модуле делал функцию RepaintFPS:integer;
которая каждый раз возвращала время между кадрами и рисовала фпс (оно другое) на экран

var FP,n,t,TOld:integer;

procedure repaintFPS;
var Rel:integer;
begin
Rel:=GetRelativeTimeMS;
if Rel-t>1000 then
begin
t:=Rel;
Fp:=n;
n:=-1;
end;
n:=n+1;
repaintFPS:=Rel-Told;
Told:=Rel;
setcolor(0,0,0);
drawtext(IntegerToString(FP),0,0);
repaint;
end;

initialization
t:=GetRelativeTimeMS;
TOld:=t;
end.