DLL库的难题？

Question

在VB中调用winio.dll 在VB中调用的代码为：
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean如在delphi中代码如何写？
本人写的代码出错呢，不明白是怎么回事
  Function SetPortVal(PortAddr:Integer;PortVal:Longint; count:Byte): Boolean; external 'WinIo.dll' ;

Answer 1

Function SetPortVal(PortAddr:Integer;var PortVal:Longint; count:Byte): Boolean; external 'WinIo.dll' ;

Answer 2

Function GetPortVal (PortAddr:word; var PortVal: integer; bSize:Byte): boolean; stdcall; external 'winio.dll'; 
Function SetPortVal(PortAddr:word; PortVal: integer; bSize: Byte): Boolean; stdcall; external 'WinIo.dll';