Сохранение файла Excel, заполненного из не основного потока

int excellFileWriter::InitExcell(String filePath)
{
  //CoInitialize(NULL);
  this->Path = filePath;
  try
  {
     ExcellApp=Variant::GetActiveObject("Excel.Application");
  }
  catch(...)
  {
     try
     {
        ExcellApp=Variant::CreateObject("Excel.Application");
     }
     catch (...)
     {
        return 1; 
     }
  }
 
  try
  {
    if(this->Path.Length()!=0){
      this->Books = ExcellApp.OlePropertyGet("WorkBooks");
      this->Book = this->Books.OlePropertyGet("Open", this->Path.c_str());
    }
    else{
      ExcellApp.OlePropertyGet("WorkBooks").OleProcedure("add");
      this->Books = ExcellApp.OlePropertyGet("WorkBooks");
    }
    Sheet=ExcellApp.OlePropertyGet("WorkSheets",1);
  }
  catch(...)
  {
    return 2; 
  }
}

  try{
    this->Books.OlePropertyGet("Item", 1).OleProcedure("Save");
    return 0;
  }
  catch(...){
    return 1;
  }

__fastcall ProgressShowClass::ProgressShowClass(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall ProgressShowClass::Execute()
{
  Form1->CreateExcelFile();
  this->Terminate();
}

    public:
        LONG volatile FCounter;

InterlockedExchangeAdd(&FCounter, 10)

if (InterlockedExchangeAdd(&FCounter, 10) == 100)
    InterlockedExchange(&FCounter, 0); // Сбрасываем в 0 при достижении 100%

void __fastcall TMyForm::Timer1Timer(TObject *Sender)
{
    ProgressBar1->Position = InterlockedExchangeAdd(&MyThread.FCounter, 0);
}

void __fastcall TMyForm::Timer1Timer(TObject *Sender)
{
  LONG NewPosition = InterlockedExchangeAdd(&MyThread.FCounter, 0);
  if (OldPosition != NewPosition)
    ProgressBar1->Position = NewPosition;
  OldPosition = NewPosition
}