Event that occurs w.
Source position: classesh.inc line 2080
type TFindAncestorEvent = procedure(
Writer: TWriter;
Component: TComponent;
const Name: string;
var Ancestor: TComponent;
var RootAncestor: TComponent
) of object;