求救：使用菜单项目的ADD方法动态生成菜单后如何编写响应代码？？

Question

把要执行的代码先写好：
type 
  TForm1 = class( TForm )
  
  private
    procedure MenuItemClick(Sender: TObject);...procedure TForm1.MenuItemClick(Sender: TObject);
begin
  ...
end;...
  NewMenuItem.OnClick:=MenuItemClick;

Answer 1

pItem := TMenuItem.Create(self);
      pItem.Caption   := pMenus.pMenu[i].sName;
      pItem.Tag       := pMenus.pMenu[i].iFuncID;
      pItem.Hint      := pMenus.pMenu[i].sStatus;
      pItem.OnClick   := MenuClick;procedure TForm1.MenuClick(Sender: TObject);
begin
  case pItem.Tag of
    .....
  else
  end;
end;

Answer 2

with TMenuItem.Create(self) do
begin
  Tag:=一个特定的自增整型数;
  OnClick:=MenuItemClick;
  ...
end;在MenuItemClick方法中
Case (Sender as TMenuItem).Tag of
0:...
1:...
else ...
end;