procedure GroupDescendentsWith(AClass, AClassGroup: TPersistentClass);
extern PACKAGE void __fastcall GroupDescendentsWith(TPersistentClass AClass, TPersistentClass AClassGroup);
Adds a specified class to the group in which another class appears.
Call GroupDescendentsWith to add the class specified by AClass to the same group as the one that contains AClassGroup. If AClassGroup is a member of more than one group, GroupDescendentsWith adds AClass to the group that contains the nearest ancestor of AClassGroup. (The nearest ancestor is the ancestor for which CountGenerations returns the lowest value).
If AClassGroup is not a member of any group, GroupDescendentsWith raises an exception.