DLL调用问题，急啊！（解决后一定给分）

Question

在动态库Ads841.dll库中有一个导出函数：
 
  LRESULT CANWaitForMsg(WORD Port,UCHAR FAR *RcvBuf,ULONG uTimeValue);要的DELPHI中调用请问因该怎样对应参数？
我调用一直不成功，请各位给出源代码吧！

Answer 1

TCanWaitForMsg = function (Port :Word;RcvBuf :PChar;uTimeValue :LongWord):LResult;stdcall;var
  CanWaitForMsg = TCanWaitForMsg;
begin
  //加载Dll
  @CanWaitForMsg = GetProcAddress(Ads841.dll的句柄, 'CANWaitForMsg');
  if CanWaitForMsg <> nil then
    CanWaitForMsg(调用参数自己写);
end;