anchor.diff:  begin
     if not FileExists('..\..\..\GUIDs.txt') then
       exit;
  -  for j := 0 to 2 do
  +  for j := 0 to 3 do
     begin
       case j of
         0 : ; // use default FStrHashTrie
  
positive.code:       begin
          FStrHashTrie.Free;
          FStrHashTrie := TStringHashTrie.Create(32, False);
        end;
      end;
      List := TStringList.Create;
  
negative.code: procedure TStringHashTrieTest.Add15KGUIDsRemoveHalfPackAndFindEachOne;
  const
    Loops = 15000;
    Scenario : array[0..3] of Integer = (2, 3740, 14998, 2);
  var
    i, j : integer;
    List : TStringList;
  