AnsiString FileName="Безымянный"; void __fastcall TForm1::actSaveAsExecute(TObject *Sender) { if(dlgSave->Execute()){ FileName=dlgSave->FileName; FileName=FileName+".ttv"; TreeView1->SaveToFile(FileName); Caption=FileName+" - редактор дерева"; } }