Word и Delphi

procedure TForm4.BitBtn2Click(Sender: TObject);
var WORD :variant;
Column, separatOV: olevariant;
vcol: OleVariant;
r:integer; separat:string; s:widestring;
begin
 
WORD:=createOleObject('WORD.Application');
 
 
WORD.options.checkspellingasyoutype:=false;
WORD.options.checkgrammarasyoutype:=false;
Word.documents.add;
 
 
Word.Selection.MoveDown;
Word.Selection.Collapse;
 
separat:='@';
separatOV:=separat;
column:=2;
 
datamodule4.ADOQuery1.first;
for r:=1 to DataModule4.ADOQuery1.RecordCount do
begin
 
 
s:='Результаты тестирования'+separat+ datamodule4.ADOQuery1.Fields.Fields[0].AsString +#13;
word.selection.insertafter(s);
s:='Фамилия'+separat+ datamodule4.ADOQuery1.Fields.Fields[1].AsString +#13;
word.selection.insertafter(s);
s:='Имя'+separat+ datamodule4.ADOQuery1.Fields.Fields[2].AsString +#13;
word.selection.insertafter(s);
s:='Специальность'+separat+ datamodule4.ADOQuery1.Fields.Fields[3].AsString +#13;
word.selection.insertafter(s);
s:='Курс'+separat+ datamodule4.ADOQuery1.Fields.Fields[4].AsString +#13;
word.selection.insertafter(s);
s:='Группа'+separat+ datamodule4.ADOQuery1.Fields.Fields[5].AsString +#13;
word.selection.insertafter(s);
s:='Тема'+separat+ datamodule4.ADOQuery1.Fields.Fields[6].AsString +#13;
word.selection.insertafter(s);
 
 
word.Selection.ConvertToTableOld(separatOV);
vcol:=wdcollapseend;
word.selection.collapse(vcol);
 
if r<>DataModule4.ADOQuery1.RecordCount then word.Selection.InsertBreak;
 
Datamodule4.ADOQuery1.Next;
 
 
end;
 
WORD.Visible:=true;
end;

datamodule4.ADOQuery1.first;

datamodule4.ADOQuery1.Open;

procedure TfmStart.N3Click(Sender: TObject);
var dotPath: string;
    Tbl: variant;
    iRow, iCol, StartRow: integer;
    DS, DS2: TDataSet;
    GRID, GRID2: TDBGridEh;
begin with fmDtMdl do begin
  DS := AUDITCASESBYCOURTS2;
  GRID := DBGridEh1;
  DS2 := AUDITCASESBYJUDGES2;
  GRID2 := DBGridEh2;
 
  MSWord:= CreateOleObject('Word.Application');
  SHABLONS.ParamByName('ID').AsInteger := 109;
  if SHABLONS.Active then SHABLONS.Close;
  SHABLONS.Open;//открыли таблицу шаблонов
  dotPath:= ExtractFilePath( ParamStr(0) );
  try
  SHABLONSCONTENT.SaveToFile(dotPath + 'T2.doc'); //сохранили его в файле
  finally SHABLONS.Close; end;
  while MSWord.Documents.Count > 0 do
    MSWord.Documents.Close;
  MSWord.Documents.Open(FileName := dotPath + 'T2.doc', ConfirmConversions:=False,
    ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:='',
    PasswordTemplate:='', Revert:=False, WritePasswordDocument:='',
        WritePasswordTemplate:='');//загрузили в WORD
 
  MSWord.Visible := true;
  MSWord.Selection.GoTo(what := -1, Name := 'DD');
  MSWord.Selection.Text := DateToStr(DateTimePicker1.Date);
  MSWord.Selection.GoTo(what := -1, Name := 'TC');
  MSWord.Selection.Text := 'СУД и судьи районных судов';
  Tbl := MSWord.ActiveDocument.Tables.Item(1);// выбираем объект "таблица"
  StartRow := 5; iRow := 0;
  AUDITCASESBYJUDGES2.DetailConditions := [dcForceOpen];
  DS.First;
  while not DS.Eof do begin
    for iCol := 1 to GRID.Columns.Count do begin
      Tbl.Cell(StartRow + iRow, iCol).Select;
      MSWord.Selection.Font.Bold := 1;
      MSWord.Selection.Text := Grid.Columns[iCol-1].Field.AsString;
    end;
    MSWord.Selection.Font.Bold := 0;
    DS2.First;//реализуем навигацию по набору данных
    while not DS2.Eof do begin
      MSWord.Selection.InsertRowsBelow(1);
      inc(iRow);
      for iCol := 2 to GRID2.Columns.Count do begin
        Tbl.Cell(StartRow + iRow, iCol).Select;
        if iCol = 2 then
          MSWord.Selection.Font.Bold := 0
        else MSWord.Selection.Font.Bold := 1;
        MSWord.Selection.Text := Grid2.Columns[iCol-1].Field.AsString; //заносим колонки грида в Word документ
      end;
      DS2.Next;
      //inc(iRow);
      //if not DS2.Eof then MSWord.Selection.InsertRowsBelow(1);
    end;
    DS.Next;
    inc(iRow);
    if not DS.Eof then MSWord.Selection.InsertRowsBelow(1);
  end;
  MSWord.Selection.InsertRowsBelow(1);
  Tbl.Cell(StartRow + iRow, 2).Select;
  MSWord.Selection.Text := 'ИТОГО по судам области';
  MSWord.Selection.Font.Bold := 1;
  for iCol := 3 to GRID.Columns.Count do begin
    Tbl.Cell(StartRow + iRow, iCol).Select;
    MSWord.Selection.Text := Grid.Columns[iCol-1].Footer.SumValue;
  end;
  MSWord.Selection.GoTo(what := -1, Name := 'CASETYPE');
  case CARDID of
    1: MSWord.Selection.Text := 'УГОЛОВНЫХ';
    2: MSWord.Selection.Text := 'ГРАЖДАНСКИХ';
  end;
  AUDITCASESBYJUDGES2.DetailConditions := [dcForceOpen,dcWaitEndMasterScroll];
end end;