Ускорить перенос данных из StringGrid-а в таблицу документа Word

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Grids.hpp>
 
class TObjClass : public TObject
{
public:
    String s;
    TStringList *L;
    TObjClass(AnsiString st, TStringList *AList) : s(st)
    {
        L = new TStringList;
        L->AddStrings(AList);
    }
};
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TStringGrid *StringGrid1;
    TRichEdit *RichEdit1;
    TButton *Button1;
    TEdit *Edit1;
    TButton *Button2;
    TButton *Button3;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    TStringList *lst;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#include <tchar.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <RichEdit.h>
#include <ComObj.hpp>
#include <StrUtils.hpp>
#include <Clipbrd.hpp>
#include <memory>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
int pos;
int lon;
bool podcherk = false;
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    RichEdit1->Focused();
    if (RichEdit1->SelText.Length()>0)
    {
        pos=RichEdit1->Lines->Strings[0].Pos(RichEdit1->SelText);
        lon=RichEdit1->SelText.Length();
        RichEdit1->SelText = RichEdit1->SelText + "*" + Edit1->Text;
        RichEdit1->SelStart = pos - 1;
        RichEdit1->SelLength = lon;
        RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsStrikeOut;
    }
 
    lst->Add(String().sprintf(_T("%d=%d"), pos - 1, lon));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    lst = new TStringList;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *g = static_cast<TStringGrid*>(Sender);
    TObjClass *obj = static_cast<TObjClass*>(g->Objects[ACol][ARow]);
    // TStringList *L = static_cast<TStringList*>(g->Objects[ACol][ARow]);
 
    g->Canvas->FillRect(Rect);
    String s = g->Cells[ACol][ARow];
    g->Canvas->TextOut(Rect.Left + 2, Rect.Top + 2, s);
    if(obj)
    {
        TStringList *L = obj->L;
 
        g->Canvas->Pen->Color = clRed;
        g->Canvas->Pen->Width = 2;
        for(int i = 0; i < L->Count; i++)
        {
            String st = L->Strings[i];
            g->Canvas->MoveTo(Rect.Left + 2 + g->Canvas->TextWidth(LeftStr(s, StrToInt(L->Names[i]))),
                2 + Rect.Top + 2 + (g->Canvas->TextHeight(s) / 2));
            g->Canvas->LineTo(Rect.Left + 2 + g->Canvas->TextWidth(LeftStr(s, StrToInt(L->Names[i]) + StrToInt(L->ValueFromIndex[i]))),
                2 + Rect.Top + 2 + (g->Canvas->TextHeight(s) / 2));
        }
    }
}
 
String GetRTF(TRichEdit *re)
{
    std::auto_ptr<TStringStream> ss(new TStringStream);
    re->Lines->SaveToStream(ss.get());
    return ss->DataString;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int row = StringGrid1->Row;
    int col = StringGrid1->Col;
 
    StringGrid1->Cells[col][row] = RichEdit1->Text;
    StringGrid1->Objects[col][row] = // static_cast<TObject*>(new TStringList);
        new TObjClass(GetRTF(RichEdit1), lst);
    // static_cast<TStringList*>(StringGrid1->Objects[0][1])->AddStrings(lst);
    // Здесь можно очищать lst, его копия уже хранится в Objects соответствующей ячейки грида...
    StringGrid1->Invalidate();
}
 
void __fastcall CopyRTFToClipboard(String st)
{
    AnsiString s = AnsiString(st);
 
    // регистрируем формат RichText
    Word cfRTF = (Word)RegisterClipboardFormat(TEXT("Rich Text Format"));
    Clipboard()->Open();
    int nTextLen = (s.Length() + 1) * sizeof(TCHAR);
    HGLOBAL hGlobal = GlobalAlloc(GMEM_MOVEABLE,nTextLen);
    if(hGlobal != NULL)
    {
        void *lpText = GlobalLock(hGlobal);
        memcpy(lpText,s.c_str(),nTextLen);
        Clipboard()->Clear();
        GlobalUnlock(hGlobal);
        Clipboard()->SetAsHandle(cfRTF,(int)hGlobal);
    }
    Clipboard()->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Variant vVarApp = CreateOleObject("Word.Application");
    vVarApp.OlePropertySet("Visible", true);
    Variant vVarDocs = vVarApp.OlePropertyGet("Documents").
        OleFunction("Open", WideString(ExtractFileDir(ParamStr(0)) + "\\1.doc"));
    Variant vVarTable = vVarDocs.OlePropertyGet("Tables").OleFunction("Item", 1);
 
    int rowCnt = vVarTable.OlePropertyGet("Rows").OlePropertyGet("Count");
    Variant selection = vVarTable.OlePropertyGet("Rows").
        OleFunction("Item", 1).OleFunction("Select");
    vVarApp.OlePropertyGet("Selection").
        OleProcedure("InsertRowsBelow", StringGrid1->RowCount - rowCnt);
 
    Variant rng = vVarTable.OlePropertyGet("Rows").
        OleFunction("Item", 2).OlePropertyGet("Range");
    rng.OlePropertySet("End", vVarTable.OlePropertyGet("Rows").
        OleFunction("Item", StringGrid1->RowCount).OlePropertyGet("Range").
        OlePropertyGet("End"));
    rng.OleFunction("Select");
 
    String st = "";
    String as = "";
    String tab = "\\tab";
    String newline = "\\par\r\n";
    for(int i = 1; i < StringGrid1->RowCount; i++)
    {
        for(int j = 0; j < StringGrid1->ColCount; j++)
        {
            TObjClass *obj = static_cast<TObjClass*>(StringGrid1->Objects[j][i]);
            String as = obj->s;
            as = as.Delete(1, as.Pos("\r\n"));
            as = as.Delete(as.LastDelimiter("}") - 12, as.Length());
            st = st + as + tab;
        }
        st = st + newline;
    }
    st = String("{\\rtf1\\ansi\\ansicpg1251\\deff0\\deflang1049{\\fonttbl{\\f0\\fnil\\fcharset204 Tahoma;}{\\f1\\fnil\\fcharset0 Tahoma;}}") +
        st + "}";
 
 
    CopyRTFToClipboard(st);
    vVarApp.OlePropertyGet("Selection").OlePropertyGet("Range").
        OleProcedure("Paste");
    ShowMessage("test");
}
//---------------------------------------------------------------------------