FPS in DelphiX auslesen

[Die Muhkuh]

Moin,

Delphi-Quellcode:

var
  FPS: Integer;
begin
  FPS := DXTimer1.FrameRate;
  Label1.Caption := IntToStr(FPS);
end;