[NumLock]

Код:

type
  TTimer = class(ExtCtrls.TTimer)
  private
    FCount: Integer;
  protected
    procedure Timer; override;
  public
    property Count: Integer read FCount;
  end;
...
procedure TTimer.Timer;
begin
  Inc(FCount);
  inherited Timer;
end;