{$MODE OBJFPC} program Test; type generic IList = interface end; IPointerList = specialize IList; type generic TList = class end; TPointerList = specialize TList; begin end.