动态生成的窗体怎么自释放

动态生成的窗体如何自释放
void   __fastcall   TMainForm::N3Click(TObject   *Sender)
{
        frmSearchinfo=new   TfrmSearchinfo(Application);
        frmSearchinfo-> ShowModal();
        frmSearchinfo-> Update();        
}

点级菜单时生成一个窗体   frmSearchinfo;

如何释放该窗体呢??

只是     FormClose   应该不会释放吧

[解决办法]
你在窗体用完了后,比如在showmodal后
delete rmSearchinfo//删除对象
frmSearchinfo = NULL ;//释放指针
[解决办法]
智能指针

[解决办法]
FormClose 事件，Action = caFree 就是自我释放

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

[解决办法]
frmSearchinfo=new TfrmSearchinfo(Application);

Application下来的不用管，程序结束的时候自己会释放掉。

[解决办法]
joyous(NULL) 正解！
[解决办法]
void __fastcall TfrmSearchinfo::FormClose(TObject *Sender, TCloseAction &Action)
{
Action = caFree;
frmSearchinfo = NULL ;//最好加上这句
}