Вставить ячейки из StringGrid в выборочные строки в Word

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TStringGrid *StringGrid1;
    TButton *Button1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
    void __fastcall AddTextInWord(String bookmark, String _Text); // <<== Добавляем эту функцию
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include <ComObj.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
Variant vApp, vDocs, vDoc, vSelection;
String Src, Dst;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Оформляем внешний вид StringGrid (для демонстрации)
  for(int i = StringGrid1->FixedCols; i < StringGrid1->ColCount; i++)
   StringGrid1->Cells[i][0] = IntToStr(i);
  for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
   StringGrid1->Cells[0][i] = IntToStr(i);
  StringGrid1->Cells[3][4] = "Текст в ячейке [3][4]";
  StringGrid1->Cells[2][3] = "Текст в ячейке [2][3]";
//Указываем имя "шаблона"
  Src = ExtractFilePath(Application->ExeName) + "template.docx";
//Указываем имя нового документа
  Dst = ExtractFilePath(Application->ExeName) + "Doc1.docx";
//Копируем "шаблон" в новый документ
  if(FileExists(Src)) CopyFile(Src.c_str(),Dst.c_str(),false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String bName, sText;
//Открываем Word
  try
   {
     vApp=CreateOleObject("Word.Application");
   }
  catch(...)
   {
     MessageBox(0, L"Ошибка при открытии сервера Word", L"Ошибка", MB_OK);
     return;
   }
  vApp.OlePropertySet("Visible",true);
  vDoc = vApp.OlePropertyGet("Documents").OleFunction("Open", WideString(Dst));
  vSelection = vApp.OlePropertyGet("Selection");
//Вставляем текст в первую метку
  AddTextInWord("a1", StringGrid1->Cells[3][4]);
//Вставляем текст во вторую метку
  AddTextInWord("a2", StringGrid1->Cells[2][3]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AddTextInWord(String bookmark, String _Text)
{
//Функция вставки текста на место закладок
//Первый параметр - имя метки
//Второй параметр - текст для вставки
  vSelection.OleProcedure("GoTo",(int)-1,0,0,WideString(bookmark));
  vSelection.OlePropertySet("Text", WideString(_Text));
  vSelection.OleProcedure("Collapse", (Variant)0);
}