При закрытии формы появляется ошибка.

#include <vcl.h>
#pragma hdrstop
 
#include "BTN.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "MyButton"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        MyButton1->reset_clicks();
}

#ifndef MyButtonH
#define MyButtonH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE MyButton : public TButton
{
private:
        int count_clicks;
protected:
public:
        void reset_clicks();
        __fastcall MyButton(TComponent* Owner);
__published:
};
void MyButton::reset_clicks()
{
        count_clicks = 0;
}

#ifndef BTNH
#define BTNH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "MyButton.h"
#include <DB.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        MyButton *MyButton1;
        void __fastcall MyButton1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//-----------------------------------

MyButton1;

MyButton1 = new MyButton(this);