new内存泄露问题

TStringList *Str1=new TStringList();   //在开始时创建
void __fastcall TFormMaster::Button7Click(TObject *Sender)
{
deleteStr1;       //退出时释放内存
Form1->Close();
}

如此，若程序异常退出，是否会造成内存泄露。
[解决办法]
为什么不写在FormClose中呢？
[解决办法]
一般写到close里
不放心可以加个__finally在你认为会出异常的地方
try
{
}
__finally
{
delete str1;
}