动态增加的菜单的onClick事件我设置后怎么一起动程序就执行了啊？subitem

Question

subitem := TMenuItem.Create(Item);
      subitem.Caption := submenuName;
      Item.Add(subItem);
      path := string(submenu.Attributes['path']);
      classname := string(submenu.Attributes['classname']);
      subitem.OnClick := LoadPkg(path,classname);
     
上面的subitem.onclick事件我想让它load package,loadPkg的参数动态设置（因为要增加很多subitem),结果程序一运行OnClick事件就执行了！我还没有点击呢//装载包
function TfrmMain.LoadPkg(path:string;classname:string):TNotifyEvent;
var
  phandle:HMODULE;
  PluginClass:TPlugInClass;
  AplgComp:TComponent;
begin
  try
    phandle := LoadPackage(path);
    PluginClass := TPlugInClass(GetClass(classname));
    if assigned(PluginClass) then
    begin
      AplgComp := PluginClass.Create(self);
      TForm(AplgComp).ShowModal;
    end;  except
  on E:Exception do
    begin
      showmessage(E.Message);
   end;
  end;
end;

Answer 1

菜单的OnClick事件是TNotifyEvent类型