ProgressBar / Передача данных / Длительная подгрузка

//открытие шаблона Excel
dobav(ExtractFilePath(Application->ExeName)+"\\1.xlt");
//передача данных
toExcel(7, 6, ADOQuery1->FieldByName("fam")->AsString);  //фамилия
toExcel(7, 9, ADOQuery1->FieldByName("name_s")->AsString);  //имя
toExcel(7, 11, ADOQuery1->FieldByName("otch")->AsString);  //отчество

void __fastcall TForm1::[I]dobav[/I](String File)
{
 try
   {
     //Создаём объект Excel
     vVarApp=CreateOleObject("Excel.Application");
     fStart=true;
   }
 catch(...)
   {
     try
        {
          //Активизируем объект Excel
          vVarApp=Variant::GetActiveObject("Excel.Application");
        }
     catch (...)
        {
          Application->MessageBox("Невозможно открыть Microsoft Excel!\nВозможно этого приложения на компьютере не установлено.","Ошибка",MB_OK+MB_ICONERROR);
        }
    }
  try
   {
      if(File!="")
      {
          //Открываем файл шаблона
          vVarApp.OlePropertyGet("WorkBooks").OleProcedure("Open",File.c_str());
          vVarSheets=vVarApp.OlePropertyGet("WorkSheets",1);
      }
      else
      {
          //Если нет, создаём книгу
          vVarApp.OlePropertyGet("WorkBooks").OleProcedure("add");
          //Активизируем первый лист
          vVarSheets=vVarApp.OlePropertyGet("WorkSheets",1);
      }
   }
 catch(...)
   {
      Application->MessageBox("Ошибка открытия книги Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
   }
 vVarApp.OlePropertySet("Visible",true);  //делаем Excel видимым
}

void __fastcall TForm1::toExcel(int Row, int Column, AnsiString data)
{
  try
    {
      vVarCells=vVarSheets.OlePropertyGet("Cells");
      vVarCell=vVarCells.OlePropertyGet("Item", Row, Column);   //выбираем ячейку
      vVarCell.OlePropertySet("Value", WideString(data));  //...и пишем туда что-нибудь
    }
  catch(...)
       {
         ShowMessage("Не возможно выгрузить данные");
       }
}