Как создать двумерный массив TButton?

int n=5,m=5;
TButton **ButtonsS;
 
void creats(){
ButtonsS = new TButton *[n];
     for (int i=0; i<n;i++){
      ButtonsS[i] = new TButton[m];};
}

int n=5,m=5;
TButton **ButtonsS;
void creats()
{
        ButtonsS = new TButton *[n];
        for (int i=0; i<n;i++)
        {
                ButtonsS[i] = new TButton(Form1);
        };
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        creats();
        for(int i=0;i<n;i++)
        {
                ButtonsS[i]->Left=random(100);
                ButtonsS[i]->Parent=Form1;
                ButtonsS[i]->Visible=true;
        }
}

int n=5,m=5;
TButton **ButtonsS;
void creats()
{
        ButtonsS = new TButton *[n];
        for (int i=0; i<n;i++)
        {
                ButtonsS[i] = new TButton(Form1);
        };
}

for(int i=0;i<n;i++)
        {
                ButtonsS[i]->Left...
                ButtonsS[i]->Caption...
        }

Image1->Canvas->Draw(x,y,bitmap);

int n=100,m=5;
class CButtons
{
        public:
        TButton *Button;
        CButtons()
        {
                Button = new TButton(Form1);
        }
        ~CButtons()
        {
                delete Button;
        }
};
 
CButtons **ButtonsS;
void creats()
{
        ButtonsS = new CButtons*[n];
 
        for (int i=0; i<n;i++)
        {
                ButtonsS[i] = new CButtons[m];
        };
}
void deletes()
{
        for(int i=0;i<n;i++)
                delete []ButtonsS[i];
        delete []ButtonsS;
 
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        creats();
        for(int i=0;i<n;i++)
        {
                for(int j=0;j<m;j++)
                {
                        ButtonsS[i][j].Button->Left=random(100);
                        ButtonsS[i][j].Button->Top=random(100);
                        ButtonsS[i][j].Button->Parent=Form1;
                        ButtonsS[i][j].Button->Visible=true;
                }
        }
        ShowMessage("Shja udalim vse nahren");
        deletes();
}