Посмотрите код.

procedure TForm3.BitBtn19Click(Sender: TObject);
 var
 Table: Variant;
 t,i,n,j: integer;
begin 
 
wordapplication1.Connect;
wordapplication1.visible:=true;
 
wordapplication1.documents.add(emptyparam,emptyparam,emptyparam,emptyparam);
wordapplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
//заголовок
wordapplication1.selection.font.bold:=wdtoggle;
wordapplication1.Selection.TypeText('Отчёт'+#13);
wordapplication1.selection.font.bold:=wdtoggle;
 
//формируем и заполняем таблицу
 
wordapplication1.selection.Tables.Add(wordapplication1.Selection.Range, dbgrid4.DataSource.DataSet.RecordCount, dbgrid4.DataSource.DataSet.FieldCount, emptyparam,emptyparam);
Table := wordapplication1.Selection.Tables.Item(1);
dbgrid4.DataSource.DataSet.First;
for i := 0 to dbgrid4.DataSource.DataSet.RecordCount-1 do
begin
for j := 0 to dbgrid4.Columns.Count - 1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrid4.Columns[j].Field.AsString);
dbgrid4.DataSource.DataSet.Next;
end;
 
//данные из edit
 
wordapplication1.Selection.TypeParagraph;
wordapplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphleft;
Wordapplication1.selection.TypeText(Trim(Label8.Caption)+(edit3.Text)+#13);
end;