Экспорт StringGrid в Word

[Lis_]

Экспортирую StringGrid через OLE
Word открывается, создает таблицу, но не вносит в нее данные.
установлен Word 2007
данные вносятся кодом:

#define OPG0(x) OlePropertyGet(x)
#define OF1(f, x) OleFunction(f, x)
Variant Row = NewDoc.OPG0("Tables").OF1("Item", 1).OPG0("Rows").OF1("Item", 1);
Variant Range = Row.OPG0("Cells").OF1("Item", j).OPG0("Range");
for (int i = 0; i < Grid->ColCount; i++)
Range.OlePropertySet("Text", (tagVARIANT) Variant(Grid->Cells[i][0]));

в чем может быть проблема?

[Lis_]

Всем спасибо. пошел другим путем. может кому пригодится:

Procedure InsertAfter("InsertAfter");
InsertAfter.ClearArgs();
Range.Exec(InsertAfter<<Grid->Cells[i][0]);