Выгрузка в Word

[ZapraBwiK]

Доброго времени суток!
Столкнулся с проблемой построчной выгрузки StringGrid в Word

кое что я изваял:
procedure TForm1.Button2Click(Sender: TObject);
var MyRange:variant; a,b,c,rc:integer;
begin
if Grid.RowCount>2 then rc:=Grid.RowCount;


MyRange:= W.ActiveDocument.words;
b:=myRange.count;


for a:=1 to b do
begin
if (MyRange.item(a).text='пня') and (MyRange.item(a+1).text=':') then
begin
MyRange.item(a+1).InsertAfter(#13);
for c:=1 to rc do
begin
MyRange.item(a+1).InsertAfter(grid. cells[1,c]);}
end;
end;
end;
end;


но вывод получается сумбурный, накладывается все друг на друга. Просветите чайника что предпринять, буду признателен.