请教delphi+mapinfo编程的一个问题(50分)

诸位高手:
小弟请教一个问题,就是如何在delphi中以ole方式调用mapinfo编写程序,如何实现
mapinfo的回调函数的编写,具体的目标就是实现鼠标的获取,请给出一段较为完整的例子,
因为我不知道如何生成一个回调的object.
谢谢

为何不用Mapx控件,它是delphi的控件,到找找看.
用ole不大方便,而且人机交互不友好.

var
oleMapInfo:variant;
sWinhand:string;
MsgString:string;
procedure tform.???();
begin
oleMapInfo := CreateOLEObject('MapInfo.Application');

Str(frmMapInfo.Handle, sWinHand);
MsgString := 'Set Application Window ' + sWinHand;
oleMapInfo.Do(MsgString);
end;

接受答案了.