急救！如何把这段c++代码转成object pascal(200分)

//declare type of call back function
typedef void (CALLBACK *ICR_EVEVTPROC)(DWORD dwEvent, DWORD dwResult, DWORD dwAPIError, LPVOID ArgList);

//------------------------------------------------------------------------------------------------------
//command transmit and receive function initializing information
typedef struct {
LPCSTR lpszComPort; //serial port "COM1","COM2",....
DWORD dwBaudRate; //circuit speed
HINSTANCE hInstance; //application instance handle
ICR_EVEVTPROC ICR_EventProc; //address of call back function
LPVOID lpvArglist; //argument for call back function
LPVOID lpvReserved1; //reservation 1(set NULL)
LPVOID lpvReserved2; //reservation 2(set NULL)
} ICR_CommadCtrlInfo, *lpICR_CommadCtrlInfo;

Type

TICR_EventProc = procedure (dwEvent,
dwResult,
dwAPIError:Cardinal;
ArgListointer) of object;

PICR_CommadCtrlInfo=^ICR_CommadCtrlInfo;
ICR_CommadCtrlInfo=Record
lpszComPort Char;
wBaudRate :Cardinal;
hInstance :THandle;
ICR_EVEVTPROC :TICR_EventProc;
lpvArglist ointer;
lpvReserved1 ointer;
lpvReserved2 ointer;
end;

这是关于串口回调的一个结构。
光转定义结构有什么用？要转也要全部转
是不是DLL提供的接口？

是欧姆龙读卡器上的一个dll头文件的一部分。谢谢大家。

多人接受答案了。