delphi指针如何指向匿名对象

在用synapse的ldap库做一个ldap应用,
关于attribute有两个类TLDAPAttribute, TLDAPAttributeList
前者可以看作name+ value1, value2, value3...
后者则是这个TLDAPAttribtue的集合，很奇怪，这个list只有一个添加attribute 的方法，就是add，add会生成一个新的attribute,并添加到list所以赋值的代码,大约就是这样
attr_list.add;   //生成一个新的attributeattr_list.Items[0].AttributeName := 'oo';
attr_list.Items[0].Add('xx');
attr_list.add;   //生成一个新的listattr_list.Items[1].AttributeName := 'aa';
attr_list.Items[1].Add('xx');
attr_list.Items[1].Add('yy');可读性非常差,尤其是我需要为每一个人生成两份证书,除了dn和cert，其余都是一样的，代码会非常得难看我想用指针来解决
就像这样
attr_list.add;   //生成一个新的listpentry_xx := @attr_list.Items[i];
pentry_xx.AttibuteName := 'xx';
pentry_xx.Add('yy');delphi会告诉我 variable required,如果是pentry_xx := @obj_attr的形式，delphi就不会报错，不知道这样的问题该怎么解决对于第二个证书的entry，我想这样做
attr_list2.add;
attr_list.Items[i] := pentry_xx^;前面报错，所以后面也没有试，不知这样对不对