procedure  TForm2.Button1Click(Sender: TObject);
 var 
  fileTemplate, asTemplate : OleVariant;
  namePos, totalPos :  String ;
  i : integer;
  newWord, newDoc : variant;
 begin 
  fileTemplate := GetCurrentDir + '\menu.dot';
  newWord := CreateOleObject('Word.Application');
  newWord.Visible := True;
  newDoc := newWord.Documents.Add(fileTemplate);
   {
  msoWord.Documents.Add(fileTemplate, EmptyParam, EmptyParam, EmptyParam);
  wordDoc.ConnectTo(msoWord.ActiveDocument);
  } 
   with  dm.query  do   begin 
    Open;
    First;
    i :=  2 ;
     while   not  Eof  do   begin 
      namePos := FieldByName('наименование').AsString;
      totalPos := FloatToStrF(FieldByName('цена_блюда').AsCurrency, ffCurrency,  10 ,  2 );
      newDoc.Tables.Item( 1 ).Cell(i,  1 ).Range.Text := namePos;
      newDoc.Tables.Item( 1 ).Cell(i,  2 ).Range.Text := totalPos;
      newDoc.Tables.Item( 1 ).Rows.Add(EmptyParam);
       {
      wordDoc.Tables.Item(1).Cell(i, 1).Range.Text := namePos;
      wordDoc.Tables.Item(1).Cell(i, 2).Range.Text := totalPos;
      wordDoc.Tables.Item(1).Rows.Add(EmptyParam);
      } 
      Inc(i);
      Next;
     end ;
    newDoc.Tables.Item( 1 ).Rows.Item(i).Delete;
     //wordDoc.Tables.Item(1).Rows.Item(i).Delete; 
    Close;
   end ;
   {
  msoWord.Visible := True;
  wordDoc.Disconnect;
  msoWord.Disconnect;
  } 
 end ;