delphi调用C写的dll，没法调用多数组参数的函数

delphi调用C写的dll，无法调用多数组参数的函数
C实现的dll函数
extern "C" void __declspec(dllexport) Init(int *tx, double *ty)
{ 
   AFX_MANAGE_STATE(AfxGetStaticModuleState());  
   for(int i=0;i<5;i++) 
   {  
      tx[i] = 1+i;  
      ty[i] = 1.1+i;  
   }
}   

delphi声明
procedure Init_1(x: array of integer; y: array of double);cdecl;
procedure Init_1;external '111.DLL' name 'Init';  

delphi调用procedure Form1.ButtonClick（Sender: TObjec）
var  
  tx: array [0..4] of integer;  
  ty: array [0..4] of double;
begin        
  Init_1(tx, ty);
end； 

问题：调用 Init_1报错。dll的Init函数参数去掉一个，然后delphi相应调用1个参数的Init_1就正确。怎么回事? delphi dll c
[解决办法]
delphi声明
procedure Init_1(x: PInteger; y: PDouble);cdecl;
procedure Init_1;external '111.DLL' name 'Init';  

delphi调用procedure Form1.ButtonClick（Sender: TObjec）
var  
  tx: array [0..4] of integer;  
  ty: array [0..4] of double;
begin        
  Init_1(@tx[0], @ty[0]);
end； 

这样试试