type TErr = class; TDer = class(List>) end; TErr = class end; begin end.