anchor.diff:  end;
   
   {$IF RTLVersion >= 17.00}  // Delphi 2005 or later
  -procedure TTestCaseHashedList.TestForIn;
  +procedure THashedListTestCase.TestForIn;
   var
     L, L2: IList;
     V: Variant;
  
positive.code:   for I := 0 to 3 do Check(L[I] = L2.Get(I));
  end;
  
  procedure TTestCaseHashedList.TestToArray;
  var
    L: IList;
    A: array of Integer;
  
negative.code:   Check(L.Remove(True) = 2);
  end;
  
  procedure THashedListTestCase.TestClear;
  var
    L: IList;
  begin
  