delphi 遍历结构体指针成员

[smith998]

请教一下大神，C可以通过以下的写法：
CRYPT_ATTRIBUTES AuthAttrs;
typedef struct _CRYPT_ATTRIBUTE {
LPSTR pszObjId;
DWORD cValue;
PCRYPT_ATTR_BLOB rgValue;
} CRYPT_ATTRIBUTE,*PCRYPT_ATTRIBUTE;

typedef struct _CRYPT_ATTRIBUTES {
DWORD cAttr;
PCRYPT_ATTRIBUTE rgAttr;
} CRYPT_ATTRIBUTES,*PCRYPT_ATTRIBUTES;

AuthAttrs.rgAttr[n].pszObjId //rgAttr可以用使用下标，

下述是Delphi的结构申明
PCRYPT_ATTRIBUTE = ^CRYPT_ATTRIBUTE;
{$EXTERNALSYM PCRYPT_ATTRIBUTE}
_CRYPT_ATTRIBUTE = record
pszObjId: LPSTR;
cValue: DWORD;
rgValue: PCRYPT_ATTR_BLOB;
end;
{$EXTERNALSYM _CRYPT_ATTRIBUTE}
CRYPT_ATTRIBUTE = _CRYPT_ATTRIBUTE;
{$EXTERNALSYM CRYPT_ATTRIBUTE}
TCryptAttribute = CRYPT_ATTRIBUTE;
PCryptAttribute = PCRYPT_ATTRIBUTE;

PCRYPT_ATTRIBUTES = ^CRYPT_ATTRIBUTES;
{$EXTERNALSYM PCRYPT_ATTRIBUTES}
_CRYPT_ATTRIBUTES = record
cAttr: DWORD;
rgAttr: PCRYPT_ATTRIBUTE;
end;
{$EXTERNALSYM _CRYPT_ATTRIBUTES}
CRYPT_ATTRIBUTES = _CRYPT_ATTRIBUTES;

请问如何转换成delphi语法来完成遍历？

谢谢各位~

[pathletboy]

参照 http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/System_PIntegerArray.html 定义