Работа с OLE-сервером Word (создание множества документов в цикле)

Variant v,v1;
 if(!fStart)
 {
  try
  {
   //Создаем объект Word.Application
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
  /* MessageBox(0, "Ошибка при открытии сервера Word",
                 "Ошибка", MB_YESNO);    */
                 ShowMessage("Ошибка при открытии Word");
  return;
  }
 }
 //Делаем сервер видимым
 vVarApp.OlePropertySet("Visible",false);
 //Получаем свойство Documents объекта
 vVarDocs=vVarApp.OlePropertyGet("Documents");
 //Создаем один документ
 vVarDocs.OleProcedure("Add");
 //vVarDocs.OleProcedure("Add");
 //Проверяем, что создано два документа
 if(vVarDocs.OlePropertyGet("Count") != 1)
 {
/*  MessageBox(0, "Ошибка при создании документов",
                 "Ошибка", MB_OK); */
     ShowMessage("Ошибка при создании доументов");
  return;
 }
 //Будем работать с первым документом - Item == 1;
 vVarDoc=vVarDocs.OleFunction("Item",1);
 //Смотреть будем тоже на первый документ
 vVarDoc.OleProcedure("Activate");
 //vVarDoc.OleProcedure("Select");

AnsiString vAsCurDir=GetCurrentDir();
AnsiString vAsCurDir1=vAsCurDir+"\\reports\\"+ADOQueryStudents->FieldByName("class")->AsString+"_class\\"+filename+".doc";
vVarDoc=vVarDocs.OleFunction("Item",1);
vVarDoc.OleProcedure("SaveAs",WideString(vAsCurDir1));
//Закрыть открытое приложение
//vVarApp.OleProcedure("Quit");
if(fStart) vVarApp.OleProcedure("Quit");

        if (fStart)
        {
            vVarApp.OleProcedure("Quit");
            fStart = false; // <--- Добавить строку
        }