anchor.diff:    end;
   end;
   
  +function TmSummaryValue.GetFormattedValue: string;
  +begin
  +  Result := TmSummaryOperatorToString(Self.Definition.SummaryOperator);
  +  Result := Result + '(';
  +  Result := Result + Self.Definition.Caption + ')= ';
  +  Result := Result + Self.ValueAsString;
  +end;
  +
   { TmSummaryDefinitions }
   
   constructor TmSummaryDefinitions.Create;
  
positive.code:     property ValueAsString: string read GetValueAsString;
      property ValueAsVariant: variant read GetValueAsVariant;
      property DataType: TmSummaryValueType read GetDataType;
    end;
  
    { TmSummaryValues }
  
negative.code:     function GetDataType: TmSummaryValueType;
      function GetValueAsString: string;
      function GetValueAsVariant: variant;
      function GetFormattedValue : string;
      procedure Init;
    public
      constructor Create;
  