ok_no_comments_outside_class
type TEmptyClWithNested = class(TObject)
Empty class with nested empty class with a comment inside
TNestedEmptyCl = class(TObject)