[fpc-pascal] List published properties of a class

[Joao Morais]

Hello list. I need to list all published properties declared in a class, 
iow, removing properties inherited from the parent.

Up to now I am iterating typinfo.GetPropList, starting at:

GetTypeData(PTypeInfo(TheClass.ClassParent.ClassInfo))^.PropCount;

and it works (fpc 2.6.2). TheClass will never receive TObject. Is this 
the right way? Will such piece of code continue working in future 
versions of the rtl?