This may cause problems with objects that rely in this order for the correct deserialization of their state.
The solution is to add an additional parameter to the GetPropList function:
cnt := GetPropList(PTypeInfo(anObject.ClassInfo), tkProperties, props, False);