TTagExecuteEvent

type TTagExecuteEvent = procedure(

  ThisTag: TTag;

  var ThisTagData: TObject;

  EnclosingTag: TTag;

  var EnclosingTagData: TObject;

  const TagParameter: string;

  var ReplaceStr: string

) of object;