anchor.diff:    Check(Value = Pointer(Self), 'Value returned from Next should be Self');
     Check(not FIntHashTrie.Next(It, Key, Value), 'Second call to Next should return False');
     FIntHashTrie.InitIterator(It);
  +  {$IFNDEF FPC}
     ExpectedException := EIntegerHashTrie;
     FIntHashTrie.Next(It, Key32, Value);
  +  {$ELSE}
  +  try
  +    FIntHashTrie.Next(It, Key32, Value);
  +    Fail('Expected exception');
  +  except
  +    on EIntegerHashTrie do {};
  +  end;
  +  {$ENDIF}
   end;
   
   initialization
  
positive.code:   Check(Value = Pointer(Self), 'Value returned from Next should be Self');
    Check(not FIntHashTrie.Next(It, Key, Value), 'Second call to Next should return False');
    FIntHashTrie.InitIterator(It);
    ExpectedException := EIntegerHashTrie;
    FIntHashTrie.Next(It, Key32, Value);
  end;
  
  procedure TIntegerHashTrieTest.TestIterate64;
  
negative.code: procedure TIntegerHashTrieTest.TestIterate32;
  var
    Key : Cardinal;
    Key16 : Word;
    Value : pointer;
    It : THashTrieIterator;
  begin
  