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

begin
ARWordReport1.Filename:=ExtractFilePath(Application.ExeName)+'Шаблоны\ШаблонПокупки.dot';
ARWordReport1.DataSetList.Clear;
ARWordReport1.DataSetList.Add(qry1, 'ds');
ARWordReport1.Preview;
end;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure Button1Click(Sender: TObject);
    procedure update_asis(sender:tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure tform1.update_asis(sender: TObject);
begin
  showmessage(
  (Sender as TMenuItem).Caption
  );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem: TMenuItem;
begin
  PopupMenu1.Items.Clear;
  NewItem := TMenuItem.Create(PopupMenu1);
  form1.PopupMenu1.Items.Add(NewItem);
  NewItem.Caption := 'Заполнить как прошлый месяц';
  NewItem.OnClick := update_asis;
  NewItem.Enabled:=True;
 
  NewItem := TMenuItem.Create(PopupMenu1);
  form1.PopupMenu1.Items.Add(NewItem);
  NewItem.Caption := 'Вывести в Excel этот день';
  NewItem.OnClick := update_asis;
  NewItem.Enabled:=True;
 
  NewItem := TMenuItem.Create(PopupMenu1);
  form1.PopupMenu1.Items.Add(NewItem);
  NewItem.Caption := 'Заполнить пробег карте';
  NewItem.OnClick := update_asis;
  NewItem.Enabled:=True;
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

procedure TForm1.N6Click(Sender: TObject);
var  Fil: TSearchRec;
     NI, NI1, NI2, NI3, NI4: TMenuItem;
begin
  FindFirst('Шаблоны\*.*',faAnyFile,Fil);
  ListBox1.Items.Add(Fil.Name);
  while FindNext(Fil)=0 do ListBox1.Items.Add(Fil.Name);
  FindClose(Fil);
NI:=TMenuItem.Create(Self);
NI1:=TMenuItem.Create(Self);
NI2:=TMenuItem.Create(Self);
NI3:=TMenuItem.Create(Self);
NI4:=TMenuItem.Create(Self);
NI.Caption:=ListBox1.Items[0];
NI1.Caption:=ListBox1.Items[1];
NI2.Caption:=ListBox1.Items[2];
NI3.Caption:=ListBox1.Items[3];
NI4.Caption:=ListBox1.Items[4];
mm1.Items[2].Items[0].Items[1].add(NI);
mm1.Items[2].Items[0].Items[1].add(NI1);
mm1.Items[2].Items[0].Items[1].add(NI2);
mm1.Items[2].Items[0].Items[1].add(NI3);
mm1.Items[2].Items[0].Items[1].add(NI4);
NI.OnClick:=N18Click;
NI1.OnClick:=N6Click;
NI2.OnClick:=N6Click;
NI3.OnClick:=N6Click;
NI4.OnClick:=N6Click;
end;
 
procedure TForm1.N18Click(Sender: TObject);
begin
 Close;
end;