Word и Delphi (шаблон)

 procedure TForm1.Button2Click(Sender: TObject);
var
i, j:integer;
v: oleVariant;
q: String;
begin
q:=InputBox('Формирование счета дополнительные услуги','Введите ФИО гостя:', '');
if q <>'' then
begin
ADOQuery2.Active:=false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('pom "' +q+ '"');
ADOQuery2.ExecSQL;
DBGrid1.DataSource := DataSource2;
ADOQuery2.Active := True;
 
//============================
word1.Connect;
word1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
wordDoc1.ConnectTo(word1.ActiveDocument);
 
wordDoc1.PageSetup.Orientation:=wdorientLandscape;
 
word1.Selection.Font.Bold:=1;
word1.Selection.Font.Size:=14;
word1.Selection.paragraphs.Alignment := wdalignParagraphCenter;
word1.Selection.TypeText('Счет за дополнительные услуги');
 
word1.Selection.TypeParagraph;
word1.Selection.TypeParagraph;
 
word1.Selection.Font.Bold:=0;
word1.Selection.Font.Size:=12;
word1.Selection.paragraphs.Alignment := wdalignParagraphLeft;
 
word1.Selection.Tables.Add(word1.Selection.Range, ADOQuery2.RecordCount+1,ADOQuery2.FieldCount, EmptyParam, EmptyParam);
V:='Сетка таблицы';
word1.Selection.Tables.Item(1).Set_Style(V);
 
for i:=1 to ADOQuery2.FieldCount do
begin
  wordDoc1.Tables.Item(1).Cell(1,i).Range.Font.Bold:=1;
  wordDoc1.Tables.Item(1).Cell(1,i).Range.Text:=ADOQuery2.Fields[i-1].DisplayName;
end;
 
  for i:=1 to ADOQuery2.FieldCount do
  begin
    for j:=1 to ADOQuery2.RecordCount do
    begin
      ADOQuery2.RecNo:=j;
      if ADOQuery2.Fields[i-1].Value<>Null then
      begin
        wordDoc1.Tables.Item(1).Cell(j+1,i).Range.Text:=ADOQuery2.fields[i-1].Value;
        end;
      end;
    end;
 
  word1.Visible:=true;
end;
end;