Закрытие формы (динамической)

 if (NewButtonClick(this))
        delete(NewForm);

form->button->OnClick = &Button1Click;

void __fastcall ButclClick(TObject *Sender);
{ NewForm->Butcl->OnClick =&ButClClick;
 delete(NewForm);
}

 Butcl->OnClick =&ButClClick;

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

TForm *NewForm; // объявляю в глобальных

NewForm = new TForm(Application); // это в обработчике события ( на кнопке одной)
... // дальше я там всякие св-ва форме ставлю

class TForm1
               : public TForm {
__published: // IDE-managed Components
private:     // User declarations
public:      // User declarations
    TForm *form;
    void __fastcall btn_click( TObject *sender ) {
        ( ( TButton * )sender )->Owner->Free( );
        form = NULL;
    }
    void __fastcall form_destroy( TObject *sender ) {
        ShowMessage( "form is being destroyed..." );
    }
    __fastcall TForm1( TComponent *Owner );
};

__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    form = new TForm( Application );
    form->Position = poScreenCenter;
    form->OnDestroy = &form_destroy;
 
    TButton *btn = new TButton( form );
    btn->Parent = form;
    btn->SetBounds( 10, 10, 100, 50 );
    btn->Caption = "close";
    btn->OnClick = &btn_click;
 
    form->Show( );
}

( ( TButton * )sender )->Owner->Free( );
        form = NULL;

 delete(NewForm);

//.h
void __fastcall form_close(TObject *Sender, TCloseAction &Action) {Action=caFree}
 
 
//.cpp
form->OnClose = &form_close;

void __fastcall form_close(TObject *Sender, TCloseAction &Action) {Action=caFree}