http://narod.ru/disk/9110429000/samp1.rar.html

В примере в названии формы должнен отображаться
FPS. После запуска первые несколько секунд FPS
пишется, а потом исчезает.  Почему  понять немогу.

Вот код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Caption:=Format('%.2f FPS', [GLSceneViewer1.FramesPerSecond]);
  GLSceneViewer1.ResetPerformanceMonitor;
end;

procedure TForm1.GLCadencer1Progress(Sender: TObject; const deltaTime,
 newTime: Double);
begin
  GLSceneViewer1.Invalidate;
end;