急问：外部读入Sting类型的变量，想指定为动态生成的菜单项的onclick事件的名字，怎么办？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Button1: TButton;
    aaa: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  N1:tmenuitem;
  event:string;
begin
  event:='ExitClick';
  n1:=tmenuitem.Create(self);
  n1.Caption:='Exit';
  n1.OnClick:=TNotifyEvent((@event)^);
  aaa.Add(n1);
end;procedure TForm1.ExitClick(Sender: TObject);
begin
  close;
end;end.如上所示的程序，编译时没错但点击Exit时就会出错：privileged instruction。我现在要做的是把xml文档中的事件名字读入，然后指定给动态生成的菜单项的onclick事件，但是却遇到了这样的毛病，真是不知如何解决了。请各位老大指点一下我这只可怜的菜鸟吧！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vMenuItem: TMenuItem;
  vMethod: TMethod;
begin
  vMethod.Code := MethodAddress('ExitClick');
  vMethod.Data := Self;  vMenuItem := TMenuItem.Create(Self);
  vMenuItem.Caption := 'Exit';
  vMenuItem.OnClick := TNotifyEvent(vMethod);
  aaa1.Add(vMenuItem);
end;