type TClassWithNested = class sealed(TObject)
Class with nested classes with attributes. This testcase is based on TParallel from Delphi RTL declaration.
| Public | TNestedClass = class sealed(TAncestor) |
| Public | TAnotherNestedClass = class sealed(TAncestor) |