{ %NORUN } program tw24283; {$mode delphi}{$H+} type TA = record end; TB = class end; TC = class(TB>) end; { ensure that specialization works as well } var t: TC; begin end.