copycomponent

function copycomponent(

  const source: tcomponent;

  const aowner: tcomponent = Nil;

  const onfindancestor: TFindAncestorEvent = Nil;

  const onfindcomponentclass: TFindComponentClassEvent = Nil;

  const oncreatecomponent: TCreateComponentEvent = Nil;

  const onancestornotfound: TAncestorNotFoundEvent = Nil

):tcomponent;