Удаление компонентов динамически

TStringGrid *StringGrid1;
TPageControl *PageControl1;
TTabSheet *TabSheet1;
TTabSheet *pPage;

StringGrid1 = new TStringGrid(this); 
 PageControl1= new TPageControl(this);
 TabSheet1 = new TTabSheet(this);
 pPage = new TTabSheet(this);

delete FindComponent("PageControl1");
delete FindComponent("StringGrid1")

delete PageControl1;  //при этом удалится объект, на который ссылается указатель PageControl1. Сам указатель никуда не исчезнет

  if(!StringGrid1) StringGrid1 = new TStringGrid(this);
   StringGrid1->Parent=Form1;
  if(!PageControl1) PageControl1= new TPageControl(this);
   PageControl1->Parent=Form1;
     PageControl1->Top=120;

     if(StringGrid1) delete StringGrid1 ; StringGrid1 = NULL;
     if(PageControl1) delete PageControl1 ; PageControl1 = NULL;

for (j=KolGrup; j>=1; j--)
        {
        pPage = new TTabSheet(this);   //Создает дополнительную вкладку, встроенная функция
        int ACol, ARow;
 
        pPage->PageControl = PageControl3;
...
}

int i, j;
int k=0;
TTabSheet *pPage[50];
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
pPage[k]= new TTabSheet (this);        // создаю
 pPage[k]->PageControl = PageControl1;   
 k++;
} 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (i=0;i<50;i++)             //удаляю
delete pPage[i];
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    for (i = 0; i < 50; i++) 
    {
        delete pPage[i];   //удаляю
        pPage[i] = NULL;  //обнуляем указатель. 
    }
}

pPage[i] = NULL;  //обнуляем указатель.