vb程序调用dll的函数如下：
引用函数：Public Declare Function Bankbook_Init Lib "D:\PR2\PR2.DLL" (ByVal pszCom As String, ByRef pszRcCode As Byte) As Integer
调用：

Option Explicit
Private lCurrentX As Long, lCurrentY As Long
Dim rc(5) As Byte

Private Sub CmdInitialize_Click()
Bankbook_Init "COM1", rc(0)
End Sub

调用正常。

现在想用delphi调用Bankbook_Init函数：
引用函数：function Bankbook_Init(pszCom: String; var pszRcCode: Byte): Integer; export; stdcall; external 'PR2.dll'

调用：
procedure TForm1.Button1Click(Sender: TObject);
var
rc: array[0..4] of Byte;
begin
Bankbook_Init('COM1', rc[0]);
end;
则出错：
另外用指针：
Type
P = ^Byte;
引用函数：function Bankbook_Init(pszCom: String; var pszRcCode: P): Integer; export; stdcall; external 'PR2.dll'

调用：
procedure TForm1.Button1Click(Sender: TObject);
var
rc: array[0..4] of P;
begin
Bankbook_Init('COM1', P(rc[0]));
end;
也是出错