Ошибка при удалении динамическисозданого объекта.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int RootCount = -1 ;
int ColButton = 0 ;
TPanel * ButtonMas[100] ;
TPanel * ButtonMasCL[100] ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Добавление панели с кнопкой
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        RootCount++ ;
        ColButton++ ;
 
        ButtonMas[RootCount] = new TPanel(Form1) ;
        ButtonMas[RootCount]->Top =  8 ;
        ButtonMas[RootCount]->Left= 51*(ColButton-1)+2 ;
        ButtonMas[RootCount]->Width = 50 ;
        ButtonMas[RootCount]->Height = 29 ;
        ButtonMas[RootCount]->Parent = Form1 ;
        ButtonMas[RootCount]->Tag = RootCount ;
 
        ButtonMasCL[RootCount] = new TPanel(Form1) ;
        ButtonMasCL[RootCount]->Top =  2 ;
        ButtonMasCL[RootCount]->Left= 23 ;
        ButtonMasCL[RootCount]->Width = 25 ;
        ButtonMasCL[RootCount]->Height = 25 ;
        ButtonMasCL[RootCount]->Parent = ButtonMas[RootCount] ;
        ButtonMasCL[RootCount]->Tag = RootCount ;
        ButtonMasCL[RootCount]->OnClick = CLB ;
}
//---------------------------------------------------------------------------
// Удаление панели с кнопкой
void __fastcall TForm1::CLB(TObject *Sender)
{
 TPanel * Imag = dynamic_cast<TPanel*>(Sender) ;
 
  try {
        ButtonMas[Imag->Tag]->Free() ;
        ColButton-- ;
  }
  catch(...){ShowMessage("err") ;}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
for (int i=0; i< this->ComponentCount; i++)
 {
  TPanel* Panel = dynamic_cast<TPanel*>(this->Components[i]);
  if (Panel) { delete Panel; i--;}
 }
}