void __fastcall TForm1::Save1Click(TObject* Sender)
{
if(!SaveDialog1->Execute()) return;

TFileStream* fs = new TFileStream(SaveDialog1->FileName, fmCreate);
TStringStream* ss = new TStringStream("");
try{
SaveData(ss);
ss->Position = 0;
fs->CopyFrom(ss, ss->Size);
} __finally{
delete ss;
delete fs;
}
}