delphi调用vb的dll出错，请高手指教解决办法

delphi调用vb的dll出错，请高手指教
VB写的的dbpapi.dll里有个声明的原型是：
Public Declare Function DBPCreate Lib "dbpapi.dll" (ByVal sips As Long, ByVal susers As Long, ByVal spasss As Long, ByRef wport As Integer, ByVal nsize As Long) As Long
只知道原型，没有相应的DLL源代码。

我在Delphi里写的代码如下：
var
  Form1: TForm1;

  Function DBPCreate(sips:pchar; susers: pchar; spasss: pchar; var wport:Integer; nsize : integer) : Integer; stdcall external 'dbpapi.dll';
 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ipaddress:pchar;
 username:pchar;
 password:pchar;
 ipport:Integer;
 dwn: Integer;
begin

  ipaddress:= '127.0.0.1';
  username:= 'admin';
  password:= 'admin';
  ipport:= 12084;
  dwn := DBPCreate(ipaddress,username,password,ipport,1); \\断点执行到这里时候报内存错误
 end;
end.
不知道我调用的哪里有问题？请高手指教！


[解决办法]
Public Declare Function DBPCreate Lib "dbpapi.dll" (ByVal sips As Long, ByVal susers As Long, ByVal spasss As Long, ByRef wport As Integer, ByVal nsize As Long) As Long

Function DBPCreate(sips:integer; susers:integer; spasss: integer; var wport:word; nsize : integer) : Integer; stdcall external 'dbpapi.dll';


vb Long->delphi integer;
vb Integer->delphi Word;
[解决办法]
VB:
integer:整形(8位带符号数，范围-32768~~+32767)
long:长整型(32位带符号数,范围-2147483648~~+2147483647)

对应Delphi是:smallInt和integer

Function DBPCreate(sips,susers,spasss,nsize:integer;var wport:smallInt:Integer; stdcall external 'dbpapi.dll';


[解决办法]
VB:
integer:整形(8位带符号数，范围-32768~~+32767)
long:长整型(32位带符号数,范围-2147483648~~+2147483647)

对应Delphi是:smallInt和integer

Function DBPCreate(sips,susers,spasss,nsize:integer;var wport:smallInt):Integer; stdcall external 'dbpapi.dll';