如何自定义菜单事件(100分）(100分)

怎样把一个类的事件指向一个非类的方法：
例：
Procedure mmClick(Sender:TObjec);
begin
end;
Procedure MyProcedure;
var
mm:TMenuItem
begin
//Create mm
mm.OnClick:=mmClick;
end;
出现：[Error] Unit1.pas(32): Incompatible types: method pointer and regular procedure
的错误。

以前讨论过这个问题：
procedure BClick(Sender: TObject);
begin
ShowMessage('Test!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
M: TMethod;
begin
M.Code := @BClick;
M.Data := Button2;
Button2.OnClick := TNotifyEvent(M);
end;

thx