我想保存一个数据块

void __fastcall TFormMaster::Save1Click(TObject *Sender)
{
if (SaveDialog1->Execute())
   {

   }
}

求帮助。
[解决办法]
注意new出来的对象要delete