anchor.diff:    Self.FFieldName := aSource.FieldName;
     Self.FFilterOperator := aSource.FFilterOperator;
     Self.FValue := aSource.FValue;
  +  Self.FDisplayValue := aSource.FDisplayValue;
   end;
   
   end.
  
positive.code:     function Count : integer;
      function Get(aIndex : integer) : TmFilter;
      procedure CopyFrom (aSource : TmFilters);
  //    procedure StartEvaluation;
  //    procedure EndEvaluation;
    end;
  
  
  
negative.code:     FFieldName : string;
      FFilterOperator : TmFilterOperator;
      FValue : Variant;
      FDisplayValue : String;
      FDataType : TmFilterDataType;
      procedure SetValue(AValue: Variant);
    public
  