Данные из таблицы вставить в документ Word

 try
  MSWord.Documents.Open('Шаблон.dot');
  except

var  Word: variant;
     FilePath: string;
begin
Word:=CreateOleObject('Word.Application');
Word.Visible:=Visible;
FilePath:='J:\Заказы\Шаблон.dot' ;
  Word.Documents.Open(FilePath)

  private
    procedure ClickM(Sender: TObject);
//бла бла бла
var
 NewItem:TMenuItem;
begin
NewItem:=TMenuItem.Create(Self);
NewItem.Caption:='Кнопка';
NewItem.OnClick:=ClickM; // здесь и присваиваем куда кликать
PopupMenu.Items[1].Add(NewItem); // тут указываем куда вклинить надо [1] первый пункт, нумерация сверху-вниз с нуля

procedure TForm1.Button1Click(Sender: TObject);
var NewItem:TMenuItem;
begin
NewItem:=TMenuItem.Create(Self);
NewItem.Caption:='Кнопка';
mm1.Items[2].Items[0].Items[1].add(NewItem); 
NewItem.OnClick:=N20Click; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var  Fil: TSearchRec;
     NewItem, NewItem1, NewItem2, NewItem3: TMenuItem;
begin
  FindFirst('Заказы\*.*',faAnyFile,Fil);
  ListBox1.Items.Add(Fil.Name);
  while FindNext(Fil)=0 do ListBox1.Items.Add(Fil.Name);
  FindClose(Fil);
NewItem:=TMenuItem.Create(Self);
NewItem1:=TMenuItem.Create(Self);
NewItem2:=TMenuItem.Create(Self);
NewItem3:=TMenuItem.Create(Self);
NewItem.Caption:=ListBox1.Items[0];
NewItem1.Caption:=ListBox1.Items[1];
NewItem2.Caption:=ListBox1.Items[2];
NewItem3.Caption:=ListBox1.Items[3];
mm1.Items[2].Items[0].Items[1].add(NewItem);
mm1.Items[2].Items[0].Items[1].add(NewItem1);
mm1.Items[2].Items[0].Items[1].add(NewItem2);
mm1.Items[2].Items[0].Items[1].add(NewItem3);
NewItem.OnClick:=N20Click;
NewItem1.OnClick:=N20Click;
NewItem2.OnClick:=N20Click;
NewItem3.OnClick:=N20Click;
end;