请教一下这句语翻译成delphi如何写

请问一下这句语翻译成delphi怎么写
BOOL   __stdcall   MP4_ClientSetCapPicCallBack(LONG   StockHandle,   void   (CALLBACK*   CapPicFun)(long   StockHandle,   char   *   pBuf,   long   nSize,   long   nWidth,   long   nHeight,   long   nStamp,   long   nType,   long   nReceaved));
这句话翻译成delphi是怎么写呢，主要我在CALLBACK*   CapPicFun)(long   StockHandle,   char   *   pBuf,   long   nSize,   long   nWidth,   long   nHeight,   long   nStamp,   long   nType,   long   nReceaved)这句不会。

[解决办法]
type
CapPicFunCallBack = procedure(StockHandle: longint; pBuf: PChar; nSize, nWidth, nHeight, nStamp, nType, nReceaved: longint);

procedure MP4_ClientSetCapPicCallBack(StockHandle: longint; CallBack: CapPicFunCallBack); stdcall; external '??????.dll ';

[解决办法]
void (CALLBACK* CapPicFun)(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved)

是个回调函数
void __stdcall Callback(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved);
你会吧

PASCAL:
type
TCallBack = procedure(... 自已攺long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved...);stdcall;//stdcall不能少
function MP4_ClientSetCapPicCallBack(StockHandle:DWord;CallBack: TCallBack);stdcall;