怎么使用WSCEnumProtocols ( 积分: 29 )

在使用WSCEnumProtocols时需要传入一个LPWSAPROTOCOL_INFOW指针，可返回出来的是一个数组，怎么用这个指针进行数组操作．
已知c++代码
int errorcode;
int protos;
DWORD protoinfosize;
LPWSAPROTOCOL_INFOW protoinfo;

protoinfo=(LPWSAPROTOCOL_INFOW)GlobalAlloc(GPTR,protoinfosize)
protos=WSCEnumProtocols(NULL,protoinfo,&protoinfosize,&errorcode)

for (i=0; i<protos; i++){
if (protoinfo.iProtocol==IPPROTO_TCP&& protoinfo
.iAddressFamily==AF_INET ){
memcpy(&tcpinfo, &(protoinfo), sizeof(WSAPROTOCOL_INFOW));
break;
};
};

在c++机制里，指针可以直接当数组用．
那在pascal里，应该怎么处理像这样的情况

很急这问题，可我可用积份只有29分，总在过意不去．．
愿哪位好心人帮我一下．．谢谢