TGetLookupInfoEvent = procedure (var Ancestor: TPersistent; var Root, LookupRoot, RootAncestor: TComponent) of object;

TntClasses

This is type TntClasses.TGetLookupInfoEvent.