TFindAncestorEvent is a procedure called by the TWriter class OnFindAncestor event.

TFindAncestorEvent = procedure (Writer: TWriter; Component: TComponent; const Name: string; var Ancestor, RootAncestor: TComponent) of object;

(Writer: TWriter; Component: TComponent; const Name: string; var Ancestor, RootAncestor: TComponent) ( TFindAncestorEvent)();