Работа с OLE сервер Excel: пропуск строк

//создание объекта Excel.Application
 if(!fStart)
 {
   try
   {
     vVarApp=CreateOleObject("Excel.Application");
     fStart=true;
   }
   catch(...)
   {
     MessageBox(0, "Ошибка при открытии сервера Excel", "Ошибка", MB_OK);
     return;
   }
 }
 
 //установка свойства
 vVarApp.OlePropertySet("Visible",true);
 //Переменной vVarBooks присваивается значение Workbooks - свойство
 //объекта Excel.Application, содержащее набор рабочих книг Excel.
 vVarBooks=vVarApp.OlePropertyGet("Workbooks");
 //SheetsInNewWorkbook задает количество листов в создаваемой книге,
 //пусть в первой книге их будет 1 страница (лист)
 vVarApp.OlePropertySet("SheetsInNewWorkbook",1);
 //Добавляем книгу из 1 листов в объект vVarBooks.
 vVarBooks.OleProcedure("Add");
 //Переменная vVarBook содержит ссылку на текущую книгу.
 //(Пусть текущая книга будет первая).
 vVarBook=vVarBooks.OlePropertyGet("Item",1);
 //Переменной vVarSheets присваиваем значение
 //Worksheets - свойство объекта Excel.Application,
 //содержащее набор страниц книги Excel.
 vVarSheets=vVarBook.OlePropertyGet("Worksheets");
 //берем первый лист
 vVarSheet=vVarSheets.OlePropertyGet("Item",1);
 //задаем новое имя листу
 vVarSheet.OlePropertySet("Name","Данные");
 
 //НАЗВАНИЕ ЗАПРОСА
 vVarSheet=vVarSheets.OlePropertyGet("Item",1);
 //выбираем группу ячеек (для объединения)
 vVarCell=vVarSheet.OlePropertyGet("Range","A2:C3");
 vVarCell.OleProcedure("Merge");
 //устанавливаем режим выравнивания текста в ячейке (ячейках) по левому краю
 vVarCell.OlePropertySet("VerticalAlignment",-4108);
 //устанавливаем размер шрифта
 vVarCell.OlePropertyGet("Font").OlePropertySet("Size",16);
 //устанавливаем цвет шрифта ячейки
 vVarCell.OlePropertyGet("Font").OlePropertySet("Color",clRed);
 //устанавливаем стиль шрифта ячейки (жирный)
 vVarCell.OlePropertyGet("Font").OlePropertySet("Bold",true);
 //устанавливаем имя шрифта ячейки
 vVarCell.OlePropertyGet("Font").OlePropertySet("Name","Times New Roman");
 //устанавливаем значение данных
 vVarCell.OlePropertySet("Value","Списки жильцов");
 
//вывод ФИО
      vVarCell=vVarSheet.OlePropertyGet("Range","A4");
      vVarCell.OleProcedure("Merge");
      vVarCell.OlePropertySet("RowHeight", 15);
      vVarCell.OlePropertySet("ColumnWidth",34);
      vVarCell.OlePropertyGet("Font").OlePropertySet("Bold",true);
      vVarCell.OlePropertyGet("Font").OlePropertySet("Size",12);
      vVarCell.OlePropertySet("HorizontalAlignment",-4108);
      vVarCell.OlePropertySet("VerticalAlignment",-4108);
      vVarCell.OlePropertySet("Value","ФИО");
      vVarCell.OlePropertyGet("Font").OlePropertySet("Color",clBlack);
      ADOQuery5->First();
      int fio = 5;
      AnsiString s;
      s= "A" +IntToStr(fio);
      while(!ADOQuery5->Eof)
        {
          vVarCell = vVarSheet.OlePropertyGet("Range",s.c_str());
          vVarCell.OlePropertySet("Value", ADOQuery5->FieldByName("Name")->AsString.c_str());
          ADOQuery5->Next();
          fio++;
          s = "A"+IntToStr(fio);
        }

private:    // User declarations
Variant  vVarApp,  //приложение
         vVarBooks, //набор книг
         vVarBook, // книга
         vVarSheets,//набор страниц
         vVarSheet, //страница
         vVarCells,//ячейки
         vVarCell; //ячейка
bool     fStart; // служит индикатором того, что сервер запущен