[mishanya00]

с ФПС разобрался

...
var
  lastfpstime,tmpfps,fps: integer;
begin
 lastfpstime := GetRelativeTimeMs;
 tmpfps := 0;
 fps := 0;
 repeat

 FillRect(0,0,50,16);
 SetColor(255,0,0);
 DrawText(IntegerToString(fps),20,2);

 if (GetRelativeTimeMs-lastfpstime>=1000) then
   begin
   lastfpstime := GetRelativeTimeMs;
   fps := tmpfps;
   tmpfps := 0;
 end else
   tmpfps+1;
 
  until GetKeyClicked = KE_KEY0;
 end.