Текст из Word в txt

typedef void __fastcall (__closure *TLVDrawItemEvent)(TCustomListView* Sender, TListItem* Item, const Types::TRect &Rect, Windows::TOwnerDrawState State);

typedef void __fastcall (__closure *TLVDrawItemEvent)(TCustomListView* Sender, TListItem* Item, const Types::TRect &Rect, TOwnerDrawState State);

TStringList* word=new TStringList;
if (OpenDialog1->Execute())
  {
  String filename;
  filename = OpenDialog1->FileName;
  Variant  vVarApp,vVarDoc,vVarParagraphs,vVarParagraph;
  bool fStart = false;
  if (!fStart)
    {
    try
      {
      vVarApp=CreateOleObject("Word.Application");
      fStart=true;
      }
    catch(...)
      {
      MessageBox(0, "Не удачно получилось открыть Word", "Внимание", MB_OK);
      return;
      }
    }
  vVarApp.OlePropertySet("Visible",false);
  vVarDoc = vVarApp.OlePropertyGet("Documents");
  vVarDoc.OleProcedure("Open", filename.c_str());
  vVarDoc = vVarDoc.OleFunction("Item",1);
  vVarDoc.OleProcedure("Activate");
  String s = vVarDoc.OlePropertyGet("Content").OlePropertyGet("Text");
  word->Add(s);
  word->SaveToFile(ExtractFilePath(Application->ExeName)+"reestr\\word.txt");
  delete word;
  }

 vVarDoc.OleProcedure("Close");

vVarApp=CreateOleObject("Word.Application");

vVarDoc.OleProcedure("Close")

vVarApp.OleProcedure("Quit");