Сохранение документа Word

vVarApp = CreateOleObject("Word.Application");
AnsiString vAsCurDir=GetCurrentDir();
String exte=vAsCurDir;
if (sOpenDialog1->Execute())
{exte=sOpenDialog1->FileName;
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open",exte.c_str());

extern AnsiString exte1;

AnsiString exte;

if(FormXYZ->sRadioButton->Checked==true) {
  vVarDoc8 = vVarDocs8.OleFunction("Item",1);
  vVarDoc8.OleProcedure("SaveAs",exte1.c_str());
}
else if (FormXYZ->sSaveDialog1->Execute()) {
  if (FileExists(exte)) {
    exte = FormXYZ->sSaveDialog1->FileName;
    vVarDoc.OleProcedure("SaveAs",exte1.c_str());
  }
  else {...}
}
vVarApp8.OleProcedure("Quit");
Form8->ShowModal(); // ну, это уже куда хотите :)
Form8->sLabel2->Caption = exte1;

FormXYZ

ФормаНаКоторойРазлегсяВашRadioButton->sRadioButton

void __fastcall TForm17::MyFunction(void)
{
if(Form8->sRadioButton1->Checked==true)
{
vVarDoc.OleProcedure("SaveAs",exte1.c_str());
vVarApp.OleProcedure("Quit");
}
}

MyFunction();

private:    // User declarations
  void __fastcall MyFunction(void);

public:     // User declarations
void __fastcall MyFunction(void);