anchor.diff:  
         str := VarToStr(tmpValue);
   
  -      if tmpIndex.Find(str) = nil then
  +      if not tmpIndex.Contains(str) then
         begin
  -         tmpIndex.Add(str, tmpIndex);
  -         aList.Add(str);
  +        tmpIndex.Add(str, tmpIndex);
  +        aList.Add(str);
         end;
       end;
       aList.Sort;
  
positive.code: interface
  
  uses
    DB, Classes, contnrs, Variants,
    mVirtualDataSet, mVirtualDataSetInterfaces, mSortConditions, mFilter, mIntList, mMaps, mLog,
    mVirtualDataSetJoins;
  
  
negative.code: var
    i : integer;
    tmpValue : variant;
    tmpIndex : TStringHashMap;
    str : String;
  begin
    tmpIndex := TStringHashMap.Create;
    try
      for i := 0 to Self.GetRecordCount - 1 do
      begin
  