Event that occurs w
type TFindAncestorEvent = procedure(
Writer: TWriter;
Component: TComponent;
const Name: String;
var Ancestor: TComponent;
var RootAncestor: TComponent
) of object;