Код:
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;
__________________
Пишу программы за еду.
__________________
|