ClassificationUnit
type TClassificationNodeData = record
ClassificationObject: TClassificationObject;