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

);