请问如何给动态生成的菜单添加功能？

Question

请问如何给动态生成的菜单添加功能？
我用的是如下方式生成菜单：
procedure TFormStart.Button1Click(Sender: TObject);
var
        newmenu:Tmenuitem;
begin
        newmenu:=Tmenuitem.Create(tb1);
        newmenu.Caption:='new';
        n1.Add(newmenu);
end;
其中，n1是一个菜单项。tb1是功能和他差不多的菜单！主要实现查询！
那么，我如何让我的生成菜单可以拥有功能呢？
请各位大虾帮帮忙！

Answer 1

http://expert.csdn.net/Expert/topic/1525/1525018.xml?temp=.943371
http://expert.csdn.net/Expert/topic/1500/1500069.xml?temp=.7353632

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    aa1: TMenuItem;
    Button1: TButton;
    n1: TMenuItem;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MenuClick(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
   newmenu:Tmenuitem;
begin
  newmenu:=Tmenuitem.Create(MainMenu1);
  newmenu.Caption:='new';
  newmenu.OnClick := MenuClick;
  n1.Add(newmenu);
end;procedure TForm1.MenuClick(Sender: TObject);
begin
  showmessage('AAAAAAAAAAAAAAAa');
end;
end.