Source position: tiObject.pas line 75
type TPerObjFindMethodExt = procedure(
AObject: TtiObject;
var AFound: Boolean;
AUserContext: Pointer
) of object;