Вывод чека в Word

procedure TForm4.Button15Click(Sender: TObject);
Var  JCODE: Integer;
range1, range2, range3, a, b, WordTable, Doc : OleVariant;
begin
     JCODE:=DBGrid9.DataSource.DataSet.FieldByName('КодЖурнала').AsInteger;
   DataModule1.ADOQuery6.SQL.Clear;
   DataModule1.ADOQuery6.SQL.Text:='SELECT Заказ.КодЗаказа, Заказ.КодЖурнала, Блюдо.Название AS НБ, Меню.Цена,'
   +' Заказ.Количество, [Цена]*[Количество] AS Стоимость FROM'
 +' ((Меню INNER JOIN Заказ ON Меню.КодМеню = Заказ.КодМеню) INNER JOIN Блюдо ON Меню.КодБлюда = Блюдо.КодБлюда)'
 +' Where Заказ.КодЖурнала=:Param1';
   DataModule1.ADOQuery6.Parameters.ParamByName('Param1').Value:=JCODE;
   DataModule1.ADOQuery6.Open;
 
CreateWord;
  OpenDoc(ExtractFileDir(application.ExeName)+'\check.rtf');
  StartOfDoc; FindAndPasteTextDoc('###Номер заказа&',DBEdit14.text);
 
{Проблема в этом участке кода}
{Проблема в четырех строках ниже. Похоже что объект Word создается в отдельном модуле..}
 
 {range1:= Activedocument.Range;
 Selection.Find.Text:='Стоимость';
{Переходим на следующую строку}
    range1.InsertAfter(#13);
    }
 
  StartOfDoc; FindAndPasteTextDoc('###Номер столика&',DBEdit8.text);
 {В этом месте нужно вывести позиции заказа}
  While Not DataModule1.ADOQuery6.EOF Do
begin
// DataModule1.ADOQuery6.FieldByName('НБ').AsString;
  DataModule1.ADOQuery6.Next;
end;
 
  StartOfDoc; FindAndPasteTextDoc('###Итого&',DBEdit13.text);
  StartOfDoc; FindAndPasteTextDoc('###Сотрудник&',DBEdit1.text);
  StartOfDoc; FindAndPasteTextDoc('###Клиент&',DBEdit6.text);
  StartOfDoc; FindAndPasteTextDoc('###Дата&',Form4.DBText4.Field.AsString);
  SaveDocAs(ExtractFileDir(application.ExeName)+'\чек.rtf');
  CloseDoc;
  shellexecute(handle,'open',pchar(ExtractFileDir(application.ExeName)+'\чек.rtf'),'','',1);
 
  DataModule1.ADOQuery6.Close;
 
    
end;

var   W : Variant;
. . .
 
try       W := GetActiveOleObject('Word.Application');
  except          W := CreateOleObject('Word.Application');
  end;
Try
  W.Documents.Open(ExtractFilePath(ParamStr(0))+'\Rep\ProvRep.docx');
  except
   ShowMessage('Не удалось открыть шаблон \Rep\ProvRep.docx');
   exit;
  end;
  W.Visible := True;