anchor.diff:      function Count : integer;
       function Get(aIndex : integer) : TmFilter;
       procedure CopyFrom (aSource : TmFilters);
  -//    procedure StartEvaluation;
  -//    procedure EndEvaluation;
     end;
   
   
  
positive.code:     FFieldName : string;
      FFilterOperator : TmFilterOperator;
      FValue : Variant;
      FDataType : TmFilterDataType;
      procedure SetValue(AValue: Variant);
    public
  
negative.code:     property FilterOperator : TmFilterOperator read FFilterOperator write FFilterOperator;
      property Value : Variant read FValue write SetValue;
      property DataType : TmFilterDataType read FDataType write FDataType;
      property DisplayValue : String read FDisplayValue write FDisplayValue;
    end;
  
    { TmFilterEvaluator }
  