anchor.diff:      Result := False;
   end;
   
  +function TListEnumerator.Reset;
  +begin
  +  FIndex := -1;
  +end;
  +
   { TAbstractList }
  -
   
   constructor TAbstractList.Create(Sync, ReadWriteSync: Boolean);
   begin
  
positive.code:   public
      constructor Create(AList: TAbstractList);
      function MoveNext: Boolean;
      property Current: Variant read GetCurrent;
    end;
  
  
negative.code:   ['{767477EC-A143-4DC6-9962-A6837A7AEC01}']
      function GetCurrent: Variant;
      function MoveNext: Boolean;
      procedure Reset;
      property Current: Variant read GetCurrent;
    end;
  
  