refreshancestor

procedure refreshancestor(

  var deletedcomps: componentarty;

  const descendent: tcomponent;

  const newancestor: tcomponent;

  const oldancestor: tcomponent;

  const revert: Boolean;

  const onfindancestor: TFindAncestorEvent = Nil;

  const onfindcomponentclass: TFindComponentClassEvent = Nil;

  const oncreatecomponent: TCreateComponentEvent = Nil;

  const onsetmethodproperty: TSetMethodPropertyEvent = Nil;

  const onwritemethodproperty: TWriteMethodPropertyEvent = Nil;

  const newcomponent: pboolean = Nil

);