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

procedure TForm1.Timer1Timer(Sender: TObject);
var T: String;
begin
   T := FloatToStr( ((Now-NL)*24*60*60) ); 
   memo1.lines.add(T);
   T := 'FpS: '+ FloatToStr( 1/((Now-NL)*24*60*60) );
   memo1.lines.add(T);
   T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
   memo1.lines.add(T);
   NL := Now;
   timer1.enabled:=false;
   //weitere befehle
end;					

1:
2:
3:

0,0160002149641514
FpS: 62,4991603075651
FpS: 62					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

interface

var
  PROCABBRUCH : boolean = FALSE;
implementation


procedure Form1.Btn1Click(Sender : TObject);
begin
  PROCABBRUCH := true;  
end;
:
:

//Prozedur zur Zeitmessung:

  ok := TRUE;
  While ok do
  begin
    Application.ProcessMessages;
    if PROCABBRUCH then Exit;
    (Zeitmessungsroutine);
  end;					

1:
2:
3:
4:
5:

    procedure DoIt;
    begin
    T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
    NL := Now;
    end;					

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;					

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  //DoIt;
  end;					

1:
2:
3:
4:

   T := 'FpS: '+ FloatToStr( ( 1 / ((Now-NL)*24*60*60) )); //= FpS: 62,4991603075651
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )); //= 62
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )/1);//= 62
   T := 'FpS: '+ FloatToStr( Round( 1 / ((Now-NL)*24*60*60) )/10); //=6,2					

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

if FesteFpS then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;					

1:
2:
3:
4:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Den Quelltext hierzwischen stehen haben
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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    FesteFpS: TCheckBox;
    FpSRate: TEdit;
    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;
    C: Extended;
  procedure DoIt;
    begin
    T := 'FpS: '+ FloatToStr( Round( 1/((Now-NL)*24*60*60) ));
    NL := Now;
    end;
begin
if FesteFpS.Checked then
  begin
  if TryStrToFloat(FpSRate.Text, C) then
      if ( (Now-NL)*24*60*60*C > 1 ) then 
        DoIt;
  end
else
  begin
  DoIt;
  end;
Canvas.TextOut(10, ClientHeight-Canvas.TextHeight(T), T);
end;

end.					

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

// uses MMSystem
procedure TMainform.Button1Click(Sender: TObject);
var
  Zeit  : TDateTime;
  Zeit1 : TDateTime;
  Zeit2 : TDateTime;
begin
  Zeit1 := TimeGetTime;
  Sleep(24);
  Zeit2 := TimeGetTime;
  Zeit := (Zeit2 - Zeit1);
  if Zeit > 0 then
    Label1.Caption := FloatToStr(Round((1 / Zeit) * 1000))
  else
    Label1.Caption := 'Zeit = 0!';
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;