Source position: mclasses.pas line 377
type TFindAncestorEvent = procedure(
Writer: twriter;
Component: tcomponent;
const Name: string;
var Ancestor: tcomponent;
var RootAncestor: tcomponent
) of object;