Помогите решить задачку.
Есть компонент Timer, который для удобства нужно слегка доработать:
-добавить пару методов - это легко получилось !
-и добавить свойство Count=число срабатываний таймера с момента последнего старта. Вот тут засада.
Поле добавил. Но как его инкрементировать (внутри компонента) одновременно с наступлением события OnTimer ?
Помогите пожалуйста !

Спасибо. Работает.

unit TimerCnt;

interface

uses
 SysUtils, Classes, ExtCtrls;

type
 TTimerCnt = class(TTimer)
 private
   FCount:cardinal;
 protected
   procedure Timer; override;
 public
   procedure Star;
   procedure Stop;
   procedure ReStart;
   constructor Create (AOwner : TComponent);override;
 published
   property Count : cardinal read FCount write FCount;
 end;

procedure Register;

implementation

procedure TTimerCnt.Timer;
begin
 inherited;
 Inc(FCount);
end;

constructor TTimerCnt.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FCount:=0;
end;

procedure Register;
begin
 RegisterComponents('Samples', [TTimerCnt]);
end;

procedure TTimerCnt.Star;
begin
FCount:=0;
Enabled := true;
end;

procedure TTimerCnt.Stop;
begin
Enabled := false;
end;

procedure TTimerCnt.ReStart();
begin
Enabled := false;
Enabled := true;
end;

end.