Привязать новой созданной кнопке файл pdf, выбранный из списка

procedure TForm4.mniN16Click(Sender: TObject);
begin
wb1.Navigate(ExtractFilePath(Application.ExeName)+'lection\vv.pdf');
end;
 
procedure TForm4.mniN5Click(Sender: TObject);
var
  i:string;
begin
if dlgOpen1.Execute then
      Wb1.Navigate(dlgOpen1.FileName);
      i:=dlgOpen1.FileName;
          Form7.ShowModal;
        begin
        newitem:=TMenuItem.Create(Self);
        newitem.Caption:=Form7.Edit1.Text;
        mniN3.Add(newitem);
        NewItem.OnClick := Form4.NewItemClick;
        end;
end;

procedure TForm4.NewItemClick(Sender: TObject);
var newitem: TMenuItem;
begin
  newitem:=(Sender as TMenuItem);
 
end;

procedure TForm7.Button1Click(Sender: TObject);
var
  NewItem: TMenuItem;
begin
 if not OpenDialog1.Execute then Exit;
 NewItem := TMenuItem.Create(Self);
 NewItem.Tag := Integer(NewStr(OpenDialog1.FileName));
 NewItem.Caption := 'Элемент ' + PString(NewItem.Tag)^;
 NewItem.OnClick := SubItemClick;
 SubMenu111.Add(NewItem);
end;
 
procedure TForm7.SubItemClick(Sender: TObject);
begin
 ShowMessage(PString(TMenuItem(Sender).Tag)^);
end;