Закрытие (уничтожение) дочерней Form

SendMessage(this->Handle,WM_CLOSE,NULL,NULL);
 
Perform(WM_CLOSE,NULL,NULL);

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
 Action = caFree;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form3 = new TForm3(Application); // Создаем
    Form3->Show(); // и показываем...
}

   if (!Form3) Application->CreateForm(__classid(TForm3), &Form3);
   Form3->ShowModal();
   delete Form3; Form3=NULL;

void __fastcall TForm1::OpForm1(TObject *Sender)
{
    Form2=new TForm2(this);
    if (Form2->ShowModal()==mrCancel) return;
}

 void __fastcall Twheelsform::FormClose(TObject *Sender, TCloseAction &Action)
{
 TCloseAction::caFree;
}

void __fastcall Twheelsform::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;  //или Action = TCloseAction::caFree;
}

Action =TCloseAction::caFree;

Application->CreateForm(__classid(Twheelsform), &wheelsform);
wheelsform->ShowModal();

void __fastcall Twheelsform::gggClick(TObject *Sender)
{
wheelsform->Close();
}

void __fastcall Twheelsform::FormClose(TObject *Sender, TCloseAction &Action)
{
 Action = TCloseAction::caFree; 
}