这个C++的DLL库的函数在delphi下应该怎么做静态声明 ( 积分: 200 )

该函数的原型如下：
MP4Play_API BOOL __stdcall MP4Play_SetSourceBufCallBack(LONG nPort,DWORD nThreShold,void (CALLBACK * SourceBufCallBack)(long nPort,DWORD nBufSize,DWORD dwUser,void*pResvered),DWORD dwUser,void *pReserved);
不知在delphi下如何做静态声明

该函数的原型如下：
MP4Play_API BOOL __stdcall MP4Play_SetSourceBufCallBack(LONG nPort,DWORD nThreShold,void (CALLBACK * SourceBufCallBack)(long nPort,DWORD nBufSize,DWORD dwUser,void*pResvered),DWORD dwUser,void *pReserved);
不知在delphi下如何做静态声明

我公司现需开发IC卡门禁系统、IC卡停车场系统等智能门禁产品开发，现需计算机高级语言编程方面的人才，有三年以上IT行业工作经验，对数据库、计算机串口技术、通讯协议等有相当经验。个人作风正派，思想上进。待遇：3000-4000元/月，包吃包住、单间、房内设施：空调、热水器、电话、电视等。符合条件者公司可协助办理招调入深户手续，购买社会保险等福利待遇。联系人：饶生，电话0755-89931021(89930920)-18 ，地址：深圳市龙岗区坪山街道办碧岭居委石夹路15号 深圳市威捷机电技术有限公司。有意者可传简历到：rwm@wejoin.com.cn

type
TSourceBufCallBack = procedure(nPort, nBufSize, dwUser: DWord
pResvered: Pointer)
stdcall;
PSourceBufCallBack = ^TSourceBufCallBack;

function MP4Play_SetSourceBufCallBack(nPort, nThreShold: DWord;
pCallBack: PSourceBufCallBack
dwUser: DWord
pResvered: Pointer): Boolean
stdcall;
external 'xxx.dll' name 'MP4Play_SetSourceBufCallBack';