Declaration:  GetPropertyAttributeList(Itempath, PropertyName: String): String;
Returns a Name=Value list of the given property attributes.

Source Code:

try
  lst := tstringlist.create;
  lst.text := getpropertyattributelist(itempath, 'Name');
  for ndx := 0 to lst.count - 1 do
    output(lst.strings);
finally
  lst.free;
end;
exit;