Обращение к динамически созданному компоненту

void __fastcall TForm4::BClick(TObject* Sender)
{
    d[0][2]->Caption = "clk"; //!!!!
}
 
void __fastcall TForm4::FormCreate(TObject *Sender)
{
 
for (int i=0; i < 5; i++)
{
    d[i] = new TButton*[5];
}
 
 for (int i=0; i < 5; i++)
 {
   for (int j=0; j < 5; j++)
   {
    d[i][j] = new TButton(Form4);
    d[i][j]->Parent = GroupBox1;
    d[i][j]->Top = 5+50*j;
    d[i][j]->Left = 5+50*i;
    d[i][j]->Caption = IntToStr(0);
    d[i][j]->Height = 50;
    d[i][j]->Width = 50;
    d[i][j]->Font->Name = "Tahoma";
    d[i][j]->Font->Size = 14;
    d[i][j]->OnClick = BClick;
   }
 }
 
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  static int bNum = 0;
  TButton *B;
  for (int i = 0; i < 5; i++)
   for (int j = 0; j < 5; j++)
    {
      B = new TButton(GroupBox1);
      B->Parent = GroupBox1;
      B->Name = "Button" + IntToStr(bNum);
      B->Height = 50;
      B->Width = 50;
      B->Top = 5 + B->Height * j;
      B->Left = 5 + B->Width * i;
      B->Caption = "0";
      B->Font->Name = "Tahoma";
      B->Font->Size = 14;
      bNum++;
      B->OnClick = BClick;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BClick(TObject* Sender)
{
   ((TButton*)Sender)->Caption = IntToStr(StrToInt(((TButton*)Sender)->Caption) + 1);
}

class TMyButton : public TButton
{
public:
    __fastcall virtual TMyButton(Classes::TComponent* AOwner) : TButton(AOwner)
    {
    }
 
    DYNAMIC void __fastcall Click(void)
    {
        Caption = IntToStr(StrToInt(Caption) + 1);
    }
};
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    static int bNum = 0;
    TMyButton *B;
    for (int i = 0; i < 5; i++)
        for (int j = 0; j < 5; j++)
        {
            B = new TMyButton(GroupBox1);
            B->Parent = GroupBox1;
            B->Name = "Button" + IntToStr(bNum);
            B->Height = 50;
            B->Width = 50;
            B->Top = 5 + B->Height * j;
            B->Left = 5 + B->Width * i;
            B->Caption = IntToStr(0);
            B->Font->Name = "Tahoma";
            B->Font->Size = 14;
            bNum++;
            // B->OnClick = BClick;
        }
}

class TMyButton : public TButton
{
public:
    TMyButton *Right;
    __fastcall virtual TMyButton(Classes::TComponent* AOwner) : TButton(AOwner)
    {
    }
 
    DYNAMIC void __fastcall Click(void)
    {
        Caption = IntToStr(StrToInt(Caption) + 1);
        if(Right) Right->Caption = IntToStr(StrToInt(Right->Caption) + 1);
    }
};
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    static int bNum = 0;
    TMyButton *B;
    for (int j = 0; j < 5; j++)
    {
        TMyButton *prev = 0;
        for (int i = 0; i < 5; i++) // слева
        // for (int i = 4; i > -1; i--) // справа
        {
            B = new TMyButton(GroupBox1);
            B->Parent = GroupBox1;
            B->Name = "Button" + IntToStr(bNum);
            B->Height = 50;
            B->Width = 50;
            B->Top = 5 + B->Height * j;
            B->Left = 5 + B->Width * i;
            B->Caption = IntToStr(0);
            B->Font->Name = "Tahoma";
            B->Font->Size = 14;
            B->Right = prev;
            prev = B;
            bNum++;
        }
    }
}