anchor.diff:    TmFilterEvaluator = class
     strict private
       FValuesAsStrings : TStringList;
  -    FValuesDictionary: TStringHashMap;
  +    FValuesDictionary: TmStringDictionary;
       FCurrentFilter : TmFilter;
       FMinStrValue, FMaxStrValue : String;
       FMinDoubleValue, FMaxDoubleValue : double;
  
positive.code: 
  uses
    Contnrs, Classes, Variants, SysUtils,
    mUtility, mFilterOperators, StrHashMap;
  
  type
    TmFilterDataType = (fdtString, fdtDate, fdtDateTime, fdtTime, fdtInteger, fdtFloat);
  
negative.code:     end else if aFilter.DataType = fdtDate then
      begin
        tmpDouble := VarAsType(FCurrentFilter.Value[start], vardate);
        FMinDoubleValue:= trunc(tmpDouble);
        tmpDouble := VarAsType(FCurrentFilter.Value[stop], vardate);
        FMaxDoubleValue:= trunc(tmpDouble);
      end else if aFilter.DataType = fdtTime then
      begin
        tmpDouble := VarAsType(FCurrentFilter.Value[start], vardate);
  