Вывод в word из dbgrid

procedure print_grid(dg: TDBGrid; Caption: string = 'Заголовок');
var
  MsApp, MsWord, Table: variant;
  i, j: integer;
  ds: TDataSet;
begin
  MsApp := CreateOleObject('Word.Application');
  MsWord := CreateOleObject('Word.Basic');
  MsApp.Documents.Add;
  MsApp.ActiveDocument.PageSetup.Orientation:=1;
  MsApp.Selection.ParagraphFormat.Alignment:=1;
  MsApp.Selection.Font.Size:=18;
  MsApp.Selection.TypeText(Text:=Caption);
  MsApp.Selection.TypeParagraph;
  MsApp.Selection.TypeParagraph;
  MsApp.Selection.Font.Size:=12;
  MsApp.Selection.Font.Bold:=False;
  MsApp.Selection.ParagraphFormat.Alignment:=0;
  ds:=dg.DataSource.DataSet;
  ds.First;
  Table:=MsApp.ActiveDocument.Tables.Add(MsApp.Selection.Range, ds.RecordCount, ds.FieldCount, wdWord9TableBehavior, wdAutoFitFixed);
  i:=0;
  while not ds.Eof do
    begin
      for j:=0 to ds.FieldCount - 1 do
          Table.Cell(i+1, j+1).Range.InsertAfter(ds.Fields[j].AsString);
      inc(i);
      ds.Next;
    end;
  MsApp.visible:=true;
  MsWord.AppShow;
end;