MapInfo问题，谁帮帮小女子 (100分)

关于毕业课题，请高手请教。我用delphi对mapinfo进行二次开发，需要定义自己的快捷键，
重新定义鼠标右键响应，但是使用时却没有反应。我的程序如下
先定义TChangedata自动化服务器的基类
type
TChangedata=Class(TAutoObject)
Automated
procedure LayerControl(msg:string);

OleMapinfo.DO('Create Menu "ShortCutMenu" ID 17 as "图层控制" Calling OLE "LayerControl"');

procedure TChangedata.LayerControl(msg:string);
begin
LayerContrForm.ShowModal;
end;
感谢！！！

我还没看懂你是什么意思！[]