anchor.diff:    if FCurrentFilter.FilterOperator = foIn then
     begin
       FValuesAsStrings := TStringList.Create;
  -    FValuesDictionary := TStringHashMap.Create();
  +    FValuesDictionary := TmStringDictionary.Create();
       ConvertVariantToStringList(FCurrentFilter.Value, FValuesAsStrings);
       for i := 0 to FValuesAsStrings.Count - 1 do
       begin
  
positive.code: 
  uses
    Contnrs, Classes, Variants, SysUtils,
    mUtility, mFilterOperators, StrHashMap;
  
  type
    TmFilterDataType = (fdtString, fdtDate, fdtDateTime, fdtTime, fdtInteger, fdtFloat);
  
negative.code:   TmFilterEvaluator = class
    strict private
      FValuesAsStrings : TStringList;
      FValuesDictionary: TmStringDictionary;
      FCurrentFilter : TmFilter;
      FMinStrValue, FMaxStrValue : String;
      FMinDoubleValue, FMaxDoubleValue : double;
  