Делфи Word

procedure TForm5.Button2Click(Sender: TObject);
var
 
table:integer;
 
begin
(сюда нужен заголовок)
 
if CreateWord then begin
 VisibleWord(false);
 AddDoc;
  ADOQuery1.DisableControls;
 WordTableAddFromDBGrid(DBGrid1,true,table);
 VisibleWord(true);
 ADOQuery1.EnableControls;
 
 ADOQuery2.DisableControls;
 WordTableAddFromDBGrid(DBGrid2,true,table);
 VisibleWord(true);
 ADOQuery2.EnableControls;
 
(и сюда)
end;
end;

uses
  ComObj;
 
//Функция для экспорта таблицы aDbGrid в документ MS Word в позицию
//диапазона aRng.
//Функция возвращает ссылку на диапазон таблицы MS Word.
function TableToMSWord(aDBGrid : TDBGrid; const aRng : Variant) : Variant;
var
  wdTbl, wdRow : Variant;
  i, Col : Integer;
  DataSet : TDataSet;
  Bm : TBookmarkStr;
begin
  Result := Unassigned;
  if TVarData(aRng).VDispatch = nil then Exit;
 
  DataSet := aDBGrid.DataSource.DataSet;
  DataSet.DisableControls;
  Bm := DataSet.Bookmark; //Установка закладки на текущую позицию в таблице.
  try
    //Создаём новую таблицу MS Word и размещаем её на месте диапазона aRng.
    wdTbl := aRng.Tables.Add(aRng, 1, aDBGrid.Columns.Count);
 
    //Записываем шапку таблицы.
    wdRow := wdTbl.Rows.Item(1);
    Col := 0;
    for i := 0 to DataSet.FieldList.Count - 1 do begin
      if not DataSet.FieldList[i].Visible then Continue; //Пропуск невидимых полей.
      Inc(Col);
      wdRow.Cells.Item(Col).Range.Text := DataSet.FieldList[i].DisplayName;
    end;
 
    //Переносим данные из набора данных в таблицу MS Word.
    DataSet.First; //Переход к первой записи в наборе.
    while not DataSet.Eof do begin
      wdRow := wdTbl.Rows.Add; //Добавление строки внизу таблицы MS Word.
      //Запись данных в ячейки строки таблицы MS Word.
      Col := 0;
      for i := 0 to DataSet.FieldList.Count - 1 do begin
        if not DataSet.FieldList[i].Visible then Continue;
        Inc(Col);
        wdRow.Cells.Item(Col).Range.Text := DataSet.FieldList[i].AsString;
      end;
      DataSet.Next; //Переход к следующей записи в наборе.
    end;
    DataSet.Bookmark := Bm; //Переходим к установленной ранее закладке.
    Result := wdTbl.Range;
  finally
    DataSet.EnableControls;
  end;
end;

Application.CreateForm(TDataModule1, DataModule1);

wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 5,4);
wdTable.Borders.InsideLineStyle := wdLineStyleSingle;
wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;
wdTable.Range.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wdTable.Cell(1,1).VerticalAlignment:= 3;
wdTable.Range.Font.Size := 11;
wdTable.Range.Font.name := 'Calibri';
wdTable.Cell(1,1).range.text := 'Тип шкафа' ;
wdTable.Cell(1,2).range.text := 'Конфигурация' ;
wdTable.Cell(1,3).range.text := 'S/N' ;
wdTable.Cell(1,4).range.text := 'Дата установки' ;
wdRng := wdDoc.Range.Characters.Last;

wdTable.Cell(1,1).range.font.name := 'tahoma' ;
wdTable.Cell(1,1).range.font.size:= '9' ;