Из StringGrid в Word

[artemavd]

Я дико извиняюсь если создал подобную тему. Я уже кажется создавал такую, но че-то не нашел поиском. Вообщем имеется код переноса таблицы из StringGrid в Word. Проблема в том, что таблица в Word переносится не в таком виде, в каком она отображается в моей программе. Прилагаю два скриншота: один показывает таблицу в моей программе, а второй как она отображается в Word-e. Помогите подправить код, чтобы в Word таблица переносилась также как она отображается в моей программе.
Код переноса таблицы:

procedure TForm1.SpeedButton41Click(Sender: TObject);
var
 WordApp,NewDoc,WordTable: OLEVariant;
 iRows,iCols,iGridRows,jGridCols: integer;
begin
 try
  WordApp:=CreateOleObject('Word.Application');
 except
  Exit;
 end;
 WordApp.Visible:=True;
 NewDoc:=WordApp.Documents.Add;
 iCols:=SG9.ColCount;
 iRows:=SG9.RowCount;
 WordTable:=NewDoc.Tables.Add(WordApp.Selection.Range,iCols,iRows);
   for iGridRows:=1 to iRows do
    for jGridCols:=1 to iCols do
      WordTable.Cell(iGridRows,jGridCols).Range.Text:=
        SG9.Cells[jGridCols - 1, iGridRows - 1];
 WordApp:=Unassigned;
 NewDoc:=Unassigned;
 WordTable:=Unassigned;
end;