anchor.diff:      Self.Add.CopyFrom(aSource.Get(i));
   end;
   
  -(*
  -procedure TmFilters.StartEvaluation;
  -var
  -  i : integer;
  -begin
  -  for i := 0 to Self.Count -1 do
  -    Self.Get(i).StartEvaluation;
  -end;
  -
  -procedure TmFilters.EndEvaluation;
  -var
  -  i : integer;
  -begin
  -  for i := 0 to Self.Count -1 do
  -    Self.Get(i).EndEvaluation;
  -end;*)
  -
   { TmFilter }
   
   procedure TmFilter.SetValue(AValue: Variant);
  
positive.code:     function Count : integer;
      function Get(aIndex : integer) : TmFilter;
      procedure CopyFrom (aSource : TmFilters);
  //    procedure StartEvaluation;
  //    procedure EndEvaluation;
    end;
  
  
  
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 }
  