TDefTreeCalculate

type TDefTreeCalculate = procedure(

  Tree: TDefineTree;

  Node: TDefineTemplate;

  ValueParsed: Boolean;

  const ParsedValue: string;

  ExpressionCalculated: Boolean;

  const ExpressionResult: string;

  Execute: Boolean

) of object;