回调函数则应定义为 TCall = function(...);stdcall;

跟普通函数定义一样,只不过最后要指明调用方法stdcall, 事件是

TCall = procedure(....) of object;