anchor.diff:    inherited;
   
     Duplicates := dupAccept;
  +  FCustomIndexOf := nil;
   end;
   
   function TCommonRecordList<T>.Add(const Value: T): integer;
  
positive.code:     end;
  end;
  
  end.
  
  
negative.code: 
    TCommonRecordList<T: record> = class(TList<T>)
    public type
      TOnCustomIndexOf = function(constref AValue: T): SizeInt of object;
      TOnForEach = procedure (AIndex: integer;
                              var AItem: T;
                              var ABreak: boolean) of object;
    private
      FDuplicates: TDuplicates;
      FCustomIndexOf: TOnCustomIndexOf;
  
      procedure ClearItemProc(AIndex: integer;
                              var AItem: T;
  