求教个delphi调用DLL的函数说明怎么写

函数名 ZtDevice_CR_ReadTrack3
出口参数 byTrackDataThree BYTE * 3
出口参数 nDataThreeLen INT *

入口参数 nTimeOut INT
返回值 short

我的声明
unction ZtDevice_CR_ReadTrack2(out byTrackDataTwo:pBYTE; out nDataTwoLen:Integer;nTimeOut:integer):integer;stdcall;external 'CardReader.dll';

调用方法
procedure TForm3.Button1Click(Sender: TObject);
var
dddd:pbyte;
cccc:integer;
ip:Integer;
begin
cccc:=ZtDevice_CR_Open(1,9600);
if cccc=1 then
begin
ip:=50;
GetMem(dddd,50);
ZtDevice_CR_ReadTrack2(dddd,ip,6);
end;

    为啥一调用ZtDevice_CR_ReadTrack2就报内存错误？

ip不对，你函数中应该传ip的指针，而不是ip的值，否则函数往50这个地址上一写，肯定就错了。

function ZtDevice_CR_ReadTrack2(out byTrackDataTwo:pBYTE; out nDataTwoLen:pInteger;nTimeOut:integer):integer;stdcall;external 'CardReader.dll';

调用方法
procedure TForm3.Button1Click(Sender: TObject);
var
dddd:pbyte;
cccc:integer;
ip:pInteger;
begin
cccc:=ZtDevice_CR_Open(1,9600);
if cccc=1 then
begin
ip^:=50;
GetMem(dddd,50);
ZtDevice_CR_ReadTrack2(dddd,ip,6);
end;

也不行啊
应该怎么写啊，求指导