北京中泰PCI 采集卡DELPHI 编程

求救PCI 8320采集卡DELPHI 编程，关于DLL调用问题。

type
pZT_PCIBOARD=^ZT_PCIBOARD;
//用于传递参数的结构
ZT_PCIBOARD = Record
   lIndex: LONGINT; //PCI卡索引值，该值在安装时被系统自动分配
   hHandle: double;//PCI卡的操作句柄（只有涉及中断时才用）
   nChBase : byte ;//默认为0，表示通道号从0开始；
                      //设为1，表示通道号从1开始，
                      //不能设为0或1以外的数
   nCh : word; //通道号
   lCode : LONGINT; //设备控制字，具体含义见说明书中的函数说明
   lData : double; //输入输出数据变量，一般用于传递单个数据
   errorLevel : LONGINT; //某些函数的错误返回码，0表无错误，其他错误代码请看头文件
   pldata : ^double; //输入输出数据指针，用于传递成批数据
end;



//打开中泰板卡
Function OpenDevicePlx(nZT_PCIBOARD:pZT_PCIBOARD):double;stdcall; external 'PCI8320.dll' name 'OpenDevicePlx' ;

//关闭中泰板卡
Function CloseDevicePlx(nZT_PCIBOARD:pZT_PCIBOARD):double;stdcall; external 'PCI8320.dll' name 'CloseDevicePlx ' ;
//模拟量输入
  Function ZT8320AI(nZT_PCIBOARD:PZT_PCIBOARD):double ; stdcall; external 'PCI8320.dll' name'ZT8320AI' ;
//模出部分
Function ZT8320DA(nZT_PCIBOARD:pZT_PCIBOARD):double ; stdcall; external 'PCI8320.dll' name'ZT8320DA' ;


procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
     For i:= 0 To 3 do
       begin
       p8320.nCh:= i;
       p8320.lCode:= 1; //AI.Mode_0__5000mV;
       ZT8320AI(@p8320);
       g:=p8320.lData;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
p8320.lIndex:= 0;
OpenDevicePlx(@p8320);
p8320.nChBase := 0 ;//设定通道号从0开始
end;