delphi调c++编的DLL中回调函数,如何定义(200)

下面是c++写的dll的定义部分#ifdef _NSPHONE_DLL #define NSPHONE_API extern "C" __declspec(dllexport) #else #define NSPHONE_API __declspec(dllimport) #endif#define _CALL __cdecl//#define _CALL __stdcalenum Np_Answer{ Np_error = -1, Np_request = 1, Np_ack = 2, Np_reject = 3, Np_hangup = 4};typedef void (*Np_Callback)(Np_Answer ans_peer,const char *msg);NSPHONE_API void _CALL Np_SetCallBackFun(Np_Callback cb);上诉代码编译成DLL方式,请问我要在delphi如何定义调用

type Np_Callback =procedure(ans_peer:Np_Answer;const msgChar);cdecl;procedure Np_SetCallBackFun(cb:Np_Callback);cdecl;