for(int i=Form->ComponentCount-1; i>=0; i--)
{
   if (dynamic_cast<TButton*>(Form->Components[i]))
   {
    delete Form->Components[i];
   }
}

Любая проблема дизайна может быть решена введением дополнительного абстрактного слоя, за исключением проблемы слишком большого количества дополнительных абстрактных слоев