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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
TLabel *L;
TPanel *P;
TEdit *E;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  TGroupBox *G = GroupBox1;
  P = new TPanel(G);
  P->Parent = G;
  P->Name = "Panel" + IntToStr(G->Tag);
  P->Left = 8;
  P->Top = 20;
  P->Width = G->Width - P->Left * 2;
  P->Height = G->Height - 28;
  int x, y;
  Randomize();
  x = Random(P->Width - 130);
  y = Random(P->Height - 30);
  L = new TLabel(P);
  L->Parent = P;
  L->Name = "Label" + IntToStr(G->Tag);
  L->AutoSize = true;
  L->Caption = P->Parent->Name;
  L->Left = x;
  L->Top = y;
  E = new TEdit(P);
  E->Parent = P;
  E->Name = "Edit" + IntToStr(G->Tag);
  E->Top = L->Top + L->Height + 5;
  E->Left = L->Left;
  E->Text = String().sprintf(L"X = %d, Y = %d", x, y);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
  for(int i = 0; i < GroupBox1->ControlCount; i++)
   {
     TControl *C;
     C = GroupBox1->Controls[i];
     delete C;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)
{
  for(int i = 0; i < GroupBox1->ControlCount; i++)
   {
     TControl *C;
     C = GroupBox1->Controls[i];
     delete C;
   }
}

if(CheckBox1->Checked==true){
    TGroupBox *G = GroupBox1;
    P = new TPanel(G);
    P->Parent = G;
    P->Name = "Panel" + IntToStr(G->Tag);
    P->Left = 8;
    P->Top = 20;
    int x=15, y=1;
    L = new TLabel(P);
    L->Parent = P;
    L->Name = "Label" + IntToStr(G->Tag);
    L->AutoSize = true;
    L->Caption = P->Parent->Name;
    L->Left = x;
    L->Top = y;
    E = new TEdit(P);
    E->Parent = P;
    E->Name = "Edit" + IntToStr(G->Tag);
    E->Top = L->Top + L->Height + 3;
    E->Left = L->Left;
    E->Text = String().sprintf(L"X = %d, Y = %d", x, y);
    E->ReadOnly=true;
 }

    TPanel * p;
    for ( int i( 0 ); i < GroupBox1->ControlCount; )
    {
        if ( p = dynamic_cast < TPanel * > ( GroupBox1->Controls[ i ] ) )
        {
            delete p;
        }
        else
        {
            ++i;
        }
    }

    P->Name = "";
    P->Left = Random( G->Width - 300 );
    P->Top = Random( G->Height - 100 );
    P->Width = 300;
    P->Height = 100;
//...
    L->Left = 10;
    L->Top = 10;