Как проверить существование динамического обьекта?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0;i<Form1->ComponentCount;i++)
 {
  if(Form1->Components[i]->ClassNameIs("TEdit"))
  {
   return;
  }
 }
 for (int i=0;i<5;i++)
        {
        TEdit *edit = new TEdit(this);
        edit->Parent = this;
        edit->Name = "edit"+AnsiString(i);
        edit->Height = 16;
        edit->Width = 104;
        edit->Left = 0;
        edit->Top = i*edit->Height;
        edit->Text = AnsiString(i);
        }
}

for (int i = 1; i <= Form1->ComponentCount; i++) if (Form1->Components[i]->ClassNameIs("TEdit")) return;
for (int i = 1; i <= StringGrid1->ColCount - 1; i++) {
    TEdit *Edit = new TEdit(this);
    Edit->Parent = Panel3;
    Edit->Name = "Edit" + IntToStr(i);
    Edit->Height = 21;
    Edit->Width = StringGrid1->DefaultColWidth - 4;
    Edit->Left = 5 + (i - 1) * (Edit->Width + 5);
    Edit->Top = Button1->Top + Button1->Height + 6;
    Edit->Text = IntToStr(i);
    StringGrid1->Cells[i][0] = i;
}

(int i = 0; i < Form1->ComponentCount; i++)

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  //переменная для элемента формы
  TControl *child;
  for (int i = 0; i < Form1->ControlCount; i++)
  {
   //Берём очередной элемент
    child = Form1->Controls[i];
    child->Width = 80;
   }
 
}

TControl *Edit;
for (int i = 0; i < Form1->ControlCount; i++) {
    Edit = Form1->Controls[i];
    Edit->Width = 100;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i=0;i<Form1->ComponentCount;i++)
 {
   if(Form1->Components[i]->ClassNameIs("TEdit"))
  {
    ((TEdit*)Form1->Components[i])->Width = 180;
  }
 }

for (int i = 0; i < Form1->ComponentCount; i++) {
    if (Form1->Components[i]->ClassNameIs("TEdit")) {
        ((TEdit *)Form1->Components[i])->Destroying();
    }
}

for (int i = 0; i < Form1->ComponentCount; i++) {
    if (Form1->Components[i]->ClassNameIs("TEdit")) {
        delete ((TEdit *)Form1->Components[i]);
    }
}