Ошибка при добавлении компонента в существующий пакет

unit CountBtn;
 
interface
 
uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;
 
type
  TCountBtn = class(TButton)
  private
  { Private declarations }
    FCount:Integer;
    protected
  { Protected declarations }
  procedure Click; override;
  public
  { Public declarations }
  procedure ShowCount;
  published
  { Published declarations }
  property Count:integer read FCount write FCount;
  constructor Create(aowner:Tcomponent); override;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('MyComponents', [TCountBtn]);
end;
 
{ TCountBtn }
 
procedure TCountBtn.Click;
begin
  inherited click;
  FCount:=FCount+1;
end;
 
constructor TCountBtn.Create(aowner: Tcomponent);
begin
  inherited create(Aowner);
end;
 
procedure TCountBtn.ShowCount;
begin
Showmessage('По кнопке '+caption+' вы сделали: '+inttostr(FCount)+' клик(а/ов)');
end;
 
end.

constructor TCountBtn.Create(aowner: Tcomponent);
begin
  inherited create(Aowner);
  FCount:=0;
end;

var
CountBtn: TCountBtn;
...
CountBtn:=TCountBtn.Create(self);
CountBtn.ParentWindows:=form1.Handle;

procedure TCountBtn.ShowCount;
begin
Showmessage('По кнопке '+caption+' вы сделали: '+inttostr(FCount)+' клик(а/ов)');
end;

property Count:integer read FCount write FCount;

  Showmessage('По кнопке '+CountBtn.caption+' вы сделали: '+inttostr(CountBtn.Count)+' клик(а/ов)');