[WeG]

Всем привет у меня такая проблема не могу правильно вывести из dbgrid в word подскажите что не так

Код:

procedure TfrmMain.GoToWord(Sender: TObject);
var
  W, Table: Variant;
  i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  dbgrMain.DataSource.DataSet.RecordCount, dbgrMain.DataSource.DataSet.FieldCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
   dbgrMain.DataSource.DataSet.First;
  for i := 0 to dbgrMain.DataSource.DataSet.RecordCount-1 do
  begin
    for j := 0 to dbgrMain.DataSource.DataSet.FieldCount - 1 do
    Table.Cell(i+1,j+1).Range.InsertBefore(dbgrMain.DataSource.DataSet.Fields[j].AsString);
    dbgrMain.DataSource.DataSet.Next;
  end;
W.Visible := True;
end;