TWordApplication - Normal.dotm и другой сеанс Word

void __fastcall TfrmMain::btnAutoReportWordClick(TObject *Sender)
{
    WordApplication->Connect();   // "Принудительаня" установка соединения с сервером
 
    WordApplication->Documents->Add();   // Создаем новый документ
    TVariant Direction = WdCollapseDirection::wdCollapseEnd; //Направление сворачивания выделения
    TVariant snew = "\n";       //Пустая строка
 
    WordDocument->ConnectTo(WordApplication->ActiveDocument); // Связывает WordDocument с активным документом
 
    //Пересылка в документ изображения из Image1
    WordApplication->Selection->InsertAfter(snew);
    Clipboard()->Assign(Image1->Picture);
    WordApplication->Selection->Paste();
    WordApplication->Selection->InsertAfter(snew);
    WordParagraphFormat->ConnectTo( WordApplication->Selection->ParagraphFormat);
    WordParagraphFormat->set_Alignment(WdParagraphAlignment::wdAlignParagraphRight); // Выравнивание по центру
    WordApplication->Selection->Collapse(&Direction); //Снятие выделения
 
    //Включение в документ текста заголовка
    WordApplication->Selection->InsertAfter(snew);
    WordApplication->Selection->InsertAfter( TVariant("Отчет " + EditNameRep->Text +" !\n") );
 
    //Установка жирного курсива и выравнивание по центру
    WordFont->ConnectTo(WordApplication->Selection->Font);
    WordFont->set_Bold(1); WordFont->set_Italic(1);
 
    WordParagraphFormat->ConnectTo( WordApplication->Selection->ParagraphFormat);
    WordParagraphFormat->set_Alignment(WdParagraphAlignment::wdAlignParagraphCenter); // Выравнивание по центру
    WordApplication->Selection->Collapse(&Direction);  //Снятие выделения
 
    WordApplication->set_Visible(true);  // Делаем Word видимым
    WordApplication->Disconnect();
 
}