Перемещение динамически созданной кнопки по сетке на форме

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int  i = 0; i < 10; i++)
     {
        for (int j = 0; j <8; j++)
         {
            TPanel *p = new TPanel(  this->Panel1  );
            p->Parent = this->Panel1;
            p->Width =67;
            p->Height  =68;
            p->Left = i * p->Width;
            p->Top  = j * p->Height;
        }
    }
     String ifiles[] = { "NOT.bmp",  "AND.bmp","OR.bmp","1.bmp","2.bmp","3.bmp","4.bmp",
                        "5.bmp","6.bmp","7.bmp","8.bmp","9.bmp","10.bmp","11.bmp","12.bmp",
                        "13.bmp","14.bmp","15.bmp","16.bmp","17.bmp", "18.bmp"};
 
    for (int i = 0; i <21; i++)
     {
         TBitBtn  *b = new TBitBtn(  this->Panel2  );
         b->Parent =  this->Panel2 ;
         b->Height=68; b->Width=67;
         b->Left = 4+(i%3)*67;
         b->Top  = 4+(i/3)*68;
         String n= ifiles[i];
 
         b->ShowHint=true;
         b->Cursor=crHandPoint;
         b->Hint = n.Delete(n.Pos("."),4);
 
         TImage *a = new TImage(0);
         a->Picture->LoadFromFile( "img/"+ ifiles[i]  );
         a->Stretch = true;
         b->Glyph = a->Picture->Bitmap ;
         b->DragMode=dmAutomatic;
      }
}

for (int  i = 0; i < 10; i++) {
  for (int j = 0; j <8; j++) {
    TPanel *p = new TPanel(  this->Panel1  );
    p->Parent = this->Panel1;
    p->Width =67;
    p->Height  =68;
    p->Left = i * p->Width;
    p->Top  = j * p->Height;
  }
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        // разрешить кнопке перетаскивание
        BitBtn1->DragMode = dmAutomatic;
}
//---------------------------------------------------------------------------
 
// Обработчик OnDragOver для Panel
void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
        Accept = true;
}
//---------------------------------------------------------------------------
 
 
// Обработчик OnDragDrop для Panel
void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
        TBitBtn *button = dynamic_cast<TBitBtn*>(Source);
        if (button)
        {
                button->Parent = (TWinControl*)Sender;
                button->Left = 0;
                button->Top = 0;
        }
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int  i = 0; i < 10; i++)                                    // обработчик который создает панельки динамически при запуске программы
     {
        for (int j = 0; j <8; j++)
         {
            TPanel *p = new TPanel(  this->Panel1  );
            p->Parent = this->Panel1;
            p->Width =67;
            p->Height  =68;
            p->Left = i * p->Width;
            p->Top  = j * p->Height;
        }
    }

void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
      Accept = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
        TBitBtn *b = dynamic_cast<TBitBtn*>(Source);
                                                           //обработчик который наносит кнопку на панельки , 
                                                               но мне необходимо чтобы кнопки наносились на панельки которые создаются динамически при запуске программы. 
        if (b)
        {
                b->Parent = (TWinControl*)Sender;
 
                int a=Tag;
                for(int i=1;i>=Panel1->Tag==21;i++)
                {
                            b->Left =10*Panel1->Tag*100+1;
                   b->Top = 10*Panel1->Tag*100+1
                }
        }
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 0; i < 10; i++) // обработчик который создает панельки динамически при запуске программы
{
for (int j = 0; j <8; j++)
{
TPanel *p = new TPanel( this->Panel1 );
p->Parent = this->Panel1;
p->Width =67;
p->Height =68;
p->Left = i * p->Width;
p->Top = j * p->Height;
}
}

void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source, int X, int Y,
TDragState State, bool &Accept)
{
Accept = true;
}

void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
TBitBtn *b = dynamic_cast<TBitBtn*>(Source);
if (b)
{
b->Parent = (TWinControl*)Sender;
 
int a=Tag;
for(int i=1;i>=Panel1->Tag==21;i++)
{
b->Left =10*Panel1->Tag*100+1;
b->Top = 10*Panel1->Tag*100+1
}
}
}