下面的代码是一个DLL动态库的BCB函数请问那位大虾可以帮我改成DELPHI(100分)

下面的代码是一个DLL动态库的BCB函数请问那位大虾可以帮我改成DELPHI

谢谢
////////////////////////////////////////////////////////////////begin
void* OpenDevice(int nMyAddress, HWND hWnd)
void CloseDevice(void* pDevice)
void SetMyAddress(void* pDevice, int nAddress)
BOOL ConnectPort(void* pDevice, LPCTSTR lpCommDef)
BOOL IsConnect(void* pDevice)
void SetAddLog(void* pDevice, BOOL bAddLog)
void SetCommKey(void* pDevice, LPCTSTR lpCommKey)
void SetInnerCode (void* pDevice, BOOL bBig5)
BOOL DisConnectPort(void* pDevice)
void SetWaitTime(void* pDevice, DWORD dwWaitTime)
void* StartICDMCommand(void* pDevice, int nAddress, int nCommand,
void* pParameters = NULL, int nSizeOfParameter = 0)
int GetSizeOfData(void* pCommand)
BOOL GetData(void* pCommand, void* pDataBuffer, int nSize)
int GetCmdResult(void* pCommand)
void EndICDMCommand(void* pCommand)
void RecvEdition(LPTSTR lpEdition)
///////////////////////////////////////////////////////////////////end

////////////////////////////////////////////////////////////////begin
function OpenDevice(nMyAddress:integer;hWnd:HWND)ointer;
Procedure CloseDevice(pDeviceointer);
Procedure SetMyAddress(pDeviceointer;nAddress:integer);
function ConnectPort(pDeviceointer;lpCommDef:未知):BOOLEAN;
function IsConnect(pDeviceointer):BOOLEAN;
Procedure SetAddLog(pDeviceointer;bAddLog:BOOLEAN);
Procedure SetCommKey(pDeviceointer;lpCommKey:未知);
Procedure SetInnerCode (pDeviceointer;bBig5:BOOLEAN);
function DisConnectPort(pDeviceointer):BOOLEAN;
Procedure SetWaitTime(pDeviceointer;dwWaitTime: DWORD );
function StartICDMCommand(pDeviceointer;nAddress:integer;nCommand:integer
[;pParametersointer = NULL][
nSizeOfParameter:integer = 0])ointer;
function GetSizeOfData(pCommandointer):integer;
function GetData(pCommandointer;pDataBufferointer;nSize:integer):BOOLEAN;
function GetCmdResult(pCommandointer):integer;
Procedure EndICDMCommand(pCommandointer);
Procedure RecvEdition(lpEdition:未知);
///////////////////////////////////////////////////////////////////end
仅供参考。。。

接受答案了.