type TClass = static class end; TDer = class(TClass) end; begin end.