1:

FloatToStr( ( 1/((Now-NL)*24*60*60) )); //(Now und NL sind vom Typ TDateTime)					

1:
2:
3:

FloatToStr( ( 1/((Now-NL)*24*60*60) )); //liefert korrekt 9,1762...
FloatToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91					

1:
2:
3:
4:
5:
6:
7:
8:

Function Runden(Zahl: Extended): Integer;
  var Ganzzahl: Integer;
      PosNeg: Integer;
  begin
  if Zahl>0 then PosNeg := 1 else PosNeg := -1;
  Ganzzahl := Trunc(Zahl);
  if Frac(Zahl)>=0.5 then Result := Ganzzahl+(1*PosNeg) else Result := Ganzzahl;
  end;					

1:
2:

FloatToStr(Runden( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Runden( 1/((Now-NL)*24*60*60) ); //liefert 91					

1:

FloatToStr(Trunc( 1/((Now-NL)*24*60*60) ); //liefert 91					

1:
2:
3:
4:
5:

var C: Extended;
begin
C := 1/((Now-NL)*24*60*60);
IntToStr( Runden( C ) ); //liefert 91
end;					

1:
2:

FloatToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91
IntToStr(Round ( 1/((Now-NL)*24*60*60) ); //liefert 91					

1:
2:
3:
4:
5:
6:
7:
8:

var nl:tdatetime;
begin
     nl:=now-1/9.1762/86400;
     memo1.lines.add(FloatToStr( ( 1/((Now-NL)*24*60*60) ))); //liefert korrekt 9,1762...
     memo1.lines.add(FloatToStr(Round ( 1/((Now-NL)*24*60*60)))); //liefert 9 !!!!
     memo1.lines.add(IntToStr(Round ( 1/((Now-NL)*24*60*60)))); //liefert 8  !!!!
     memo1.lines.add(floattostr(1/9.1762/86400));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  NL: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var T: String;
begin
   T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) )); ;
   NL := Now;
   Canvas.TextOut(0, ClientHeight- Canvas.TextHeight(T), T);
   //weitere befehle
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var Time1, Time2, Freq: Int64;
    wert : extended;
begin
    QueryPerformanceFrequency(Freq);
    QueryPerformanceCounter(Time1);

    //hier Deine Zeichnung

    QueryPerformanceCounter(Time2);
    wert:=1000*(Time2-Time1)/freq;
    label1.caption:=floattostrf(wert,ffgeneral,4,3)+' ms';
    label2.caption:=floattostrf(1000/wert,ffgeneral,4,3)+' Bilder je s';
end;					

1:
2:
3:
4:
5:

while(true)
begin
  doSth();
  Application.ProcessMessages();
end;