anchor.diff:    TmFilterEvaluator = class
     strict private
       FValuesAsStrings : TStringList;
  -    FValuesDictionary: TStringHashMap;
  +    FValuesDictionary: TmStringDictionary;
       FCurrentFilter : TmFilter;
       FMinStrValue, FMaxStrValue : String;
       FMinDoubleValue, FMaxDoubleValue : double;
  
positive.code:     end else if aFilter.DataType = fdtDate then
      begin
        tmpDouble := VarAsType(FCurrentFilter.Value[start], vardate);
        FMinDoubleValue:= round(tmpDouble);
        tmpDouble := VarAsType(FCurrentFilter.Value[stop], vardate);
        FMaxDoubleValue:= round(tmpDouble);
      end else if aFilter.DataType = fdtTime then
      begin
        tmpDouble := VarAsType(FCurrentFilter.Value[start], vardate);
  
negative.code:   if FCurrentFilter.FilterOperator = foIn then
    begin
      FValuesAsStrings := TStringList.Create;
      FValuesDictionary := TmStringDictionary.Create();
      ConvertVariantToStringList(FCurrentFilter.Value, FValuesAsStrings);
      for i := 0 to FValuesAsStrings.Count - 1 do
      begin
  