type MyList = class(List) public end; begin var l := new MyList; l.Add(3); l.Add(3); l.Add(7); Assert(l.IndexOf(7)=2); end.