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