удаление обьектов в С++

[U391]

создал 4 обьекта TabSheet

for (int x=0; x<ListBox1->Items->Count ;x++){
TTabSheet *tab = new TTabSheet(this);
tab->Parent = this;
tab->PageControl=PageControl1;
tab->Name = ListBox1->Items->operator [](x);


как теперь мне их удалить с PageControl??

пробовал так

for (int x=0; x<PageControl1->ComponentCount; x++){
PageControl1->Components[x]->Free();
}

но так не выходит , видимо я неправилно удаляю, подскажите знатоки....

[_nautilus_]

while (PageControl1->PageCount)
PageControl1->Pages[PageControl1->PageCount - 1]->Destroy();

[U391]

спс за помощь только в конце не Destroy() a Free()

[U391]

а еще вопрос как при динамическом создании DBGrid разместить их на нужном TabSheet ???