Как использовать кнопку после первого использования?

void __fastcall TForm1::Button1Click(TObject *Sender)
{}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    new_btn = new TButton (Form1);
    new_btn->Top = 5;
    new_btn->Left = 5;
    new_btn->Caption = "Продолжить";
 
}

TButton *new_btn;  //Объявляем переменную в виде ссылки.

 TButton *Butt = new TButton(this);
        Butt->Parent = this;
        Butt->Name = "Button1";
        Butt->Height = 16;
        Butt->Width = 104;
        Butt->Left = 0;
        Butt->Top = Butt->Height;
        Butt->Caption = "some text";

Button1->Free();

void __fastcall TForm1::MyClick(TObject *Sender)
{
    // тут другие действия
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // тут манипуляции, после которых:
    Button1->OnClick = MyClick;
}

int BtnClick = 0;
...
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  switch(BtnClick)
   {
     case 0 :
      {
//Тут какие-то действия при первом нажатии
        BtnClick++;
        break;
      }
     case 1 :
      {
//Тут какие-то действия при втором нажатии        
        BtnClick++;
        break;
      }
     case 2 :
      {
//Тут какие-то действия при третьем нажатии      
        BtnClick++;
        break;
      }
     case 3 :
//При четвертом нажатии - выход из программы
        Close();
        break;
   }
}