1:

FPS := FPS+1;					

1:
2:

Form1.Caption := IntToStr(FPS*50)+' FPS';   // Ist aber sehr ungenau
FPS := 0;					

1:
2:

Form1.Caption := IntToStr(FPS)+' FPS';
FPS := 0;					

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

    with DXDraw.Surface.Canvas do
    begin
      Brush.Style := bsClear;
      Font.Color := clWhite;
      Font.Size := 12;
      Textout(0, 0, 'FPS: '+inttostr(DXTimer.FrameRate));
      Release;
    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:

var CounterAvailable : boolean = false;
    Frequency        : int64;
    LastTime         : int64;
    CurrentTime      : int64;
    TimeScale        : double;
    TimeDelta        : double;
    FrameRate        : single;
    SpeedRelation    : single;

    LastFPSTime      : int64;
    FrameRateString  : String;
    TempFrameCount   : Word;
...

procedure initPerformanceTimer;
begin
  CounterAvailable := false;
  if QueryPerformanceFrequency(frequency) = false then
  begin
    LastTime := timeGetTime;
    TimeScale := 0.001;
  end else begin
    CounterAvailable := true;
    TimeScale := 1.0 / frequency;
    QueryPerformanceCounter(LastTime);
  end;
  FrameRate        := 0;
  FrameRateString  := 'FPS: 0';
  TempFrameCount   := 100-1;
end;

procedure CountPerformance;
begin
  // high resolution performance counter
  if CounterAvailable then queryPerformanceCounter(CurrentTime)
  else CurrentTime := timeGetTime;
  TimeDelta        := (CurrentTime - LastTime) * TimeScale;
  LastTime         := CurrentTime;
  SpeedRelation    := TimeDelta * TimeSpeed;
  //-------------------------------------------
  inc(TempFrameCount);
  if TempFrameCount = 100 then
  begin
    FrameRate        := 100 / ((CurrentTime-LastFPSTime)* TimeScale);
    FrameRateString  := 'FPS: '+IntToStr(trunc(FrameRate));
    LastFPSTime      := CurrentTime;
    TempFrameCount   := 0;
  end;
end;					

1:

DXTimer1.FrameRate					

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

 Inc(Frames);
  if GetTickCount - StartTick >=500 then
  begin
    Framespersecond:= round(Frames/(GetTickCount - StartTick)*1000);
    StartTick := GetTickCount;
     Frames := 0;
  end;