type Student = class name: string; end; MyList = class(List) public end; begin var l := new MyList; l.Add(new Student); Assert(l.IndexOf(l[0])=0); end.