anchor.diff:  
   implementation
   
  -procedure TestTStringHashTrie.SetUp;
  +procedure TestTOld_StringHashTrie.SetUp;
   begin
     FStringHashTrie := TStringHashTrie.Create;
   end;
   
  -procedure TestTStringHashTrie.TearDown;
  +procedure TestTOld_StringHashTrie.TearDown;
   begin
     FStringHashTrie.Free;
     FStringHashTrie := nil;
   end;
   
  -procedure TestTStringHashTrie.TestAddIterateAndFindManyEntries;
  +procedure TestTOld_StringHashTrie.TestAddIterateAndFindManyEntries;
   const
     Count = 1024 * 1024;
   var
  
positive.code: 
  initialization
    // Register any test cases with the test runner
    RegisterTest(TestTStringHashTrie.Suite);
  end.
  
  
negative.code:   CheckEquals(Count, Cnt, 'Count of iterated values doesn''t match');
  end;
  
  procedure TestTOld_StringHashTrie.TravMeth(UserData: Pointer; Key: PChar; Data: TObject; var Done: Boolean);
  var
    AValue : TObject;
  begin
  