Работа с функциями

Есть функция удаления динамических компонентов:

void clear()
{
  Button1->Free();
  Button2->Free();
  Button3->Free();
  Button4->Free();
  Button5->Free();
  Button6->Free();
  Button7->Free();
  Memo1->Free();
  Memo2->Free();
  Label1->Free();
  Label2->Free();
  Label3->Free();
  Edit1->Free();
  Edit2->Free();
  Edit3->Free();
  Edit4->Free();
  UpDown1->Free();
  UpDown2->Free();
  UpDown3->Free();
}

Есть функция создания:

void __fastcall TForm1::N3Click(TObject *Sender)
{
  if(nq>=1)
  {
    clear();
  }
  creint();
  Edit1->Free();
  Edit2->Free();
  Edit3->Free();
  Edit4->Free();
  UpDown1->Free();
  UpDown2->Free();
  UpDown3->Free();
  Button5->Free();
  Button6->Free();
  Button7->Free();
  Memo2->Free();
  Label3->Free();
}

Но перед функцией создания creint() идет функция clear(). И соответственно выходит ошибка, так как функция clear() удаляет все компоненты которые были. А я удаляю заранее некоторые, так как они не нужны.

Вопрос как этого избежать? Или сделать какое-нибудь небольшое условие на проверку компонентов на форме?