Динамическое создание и удаление объектов VCL

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TGroupBox *GroupBox1;
    TButton *Button1;
    TButton *Button2;
    TGroupBox *GroupBox2;
    TCheckBox *CheckBox1;
    TCheckBox *CheckBox2;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
    int nPanel, nLabel, nEdit; //Переменные имен компонент
    int dh, dw, dl, dt; //Переменные начального размещения панели
    int aPos[4][2]; //Массив переменных размещения панели (второй индекс - количество GroupBox-ов)
    void __fastcall CreatePanel(TGroupBox *G, int numG);
    void __fastcall DeletePanel(TGroupBox *G);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CreatePanel(TGroupBox *G, int numG)
{
//Создаем панель
  TPanel *P = new TPanel(G);
  if(G->ControlCount == 0)
   {
     aPos[0][numG] = dh; aPos[1][numG] = dw; aPos[2][numG] = dl; aPos[3][numG] = dt;
   }
  P->Parent = G;
  P->Name = "Panel" + IntToStr(nPanel++);
  P->Caption = "";
  P->Left = aPos[2][numG];
  P->Top = aPos[3][numG];
  P->Width = aPos[1][numG];
  P->Height = aPos[0][numG];
  aPos[2][numG] = P->Left + P->Width + 2;
  if(aPos[2][numG] > G->Width)
   {
     aPos[2][numG] = dl;
     aPos[3][numG] = P->Top + P->Height + 2;
   }
//Создаем метку
  TLabel *L = new TLabel(P);
  L->Parent = P;
  L->Name = "Label" + IntToStr(nLabel++);
  L->AutoSize = true;
  L->Caption = String().sprintf(L"%s на %s", P->Name, P->Parent->Name);
  L->Left = 6;
  L->Top = 3;
//Создаем Едит
  TEdit *E = new TEdit(P);
  E->Parent = P;
  E->Name = "Edit" + IntToStr(nEdit++);
  E->Top = L->Top + L->Height + 4;
  E->Left = L->Left;
  E->Text = String().sprintf(L"%s: X = %d, Y = %d", P->Name, P->Left, P->Top);
  G->Caption = String().sprintf(L"%s содержит %d компонентов", G->Name, G->ControlCount);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(CheckBox1->Checked) CreatePanel(GroupBox1, 1);
  if(CheckBox2->Checked) CreatePanel(GroupBox2, 2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  nPanel = nLabel = nEdit = 1;
  dh = 50; dw = 180; dl = 8; dt = 20;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DeletePanel(TGroupBox *G)
{
  TPanel *P;
  for(int i(0); i < G->ControlCount;)
   {
     if (P = dynamic_cast <TPanel*>(G->Controls[i]))
      delete P;
     else ++i;
   }
  G->Caption = String().sprintf(L"%s содержит %d компонентов", G->Name, G->ControlCount);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  if(CheckBox1->Checked) DeletePanel(GroupBox1);
  if(CheckBox2->Checked) DeletePanel(GroupBox2);
}
//---------------------------------------------------------------------------