C++ To Delphi

typedef bool (__stdcall *fMessCallBack)(long lLoginID, char *pBuf,unsigned long dwBufLen, long dwUser);
H264_DVR_API bool H264_DVR_SetDVRMessCallBack(fMessCallBack cbAlarmcallback, unsigned long lUser);

请问这个用Delphi 怎么写？
[解决办法]
function MyfMessCallBack(lLoginID: integer; pBuf: PChar; dwBufLen: integer; dwUser: integer): Boolean;
begin
Result := True;
//do something
end;

procedure TForm1.Button1Click(Sender: TObject);
var
lUser: integer;
begin
H264_DVR_SetDVRMessCallBack(@MyfMessCallBack, lUser);
end;