{ %norun } { %fail } {$mode delphi} type TRootClass = class Value: TRootClass.Integer; end; begin end.