Source position: tiObject.pas line 76
type TPerObjFindMethodData = procedure(
AObject: TtiObject;
var AFound: Boolean;
AData: TtiObject
) of object;