<unit name="ok_implicit_visibility">
  <structure name="TMyClass" name_with_generic="TMyClass" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <routine name="MyMethod" declaration="procedure MyMethod;" visibility="implicit" type="procedure">
    </routine>
    <variable name="MyField" declaration="MyField: Integer;" visibility="implicit">
    </variable>
    <property name="MyProperty" declaration="property MyProperty: Integer read MyField write MyField;" visibility="implicit" indexdecl="" type="Integer" reader="MyField" writer="MyField" default_in_class="False" default_value="" nodefault="False"   stored="">
    </property>
  </structure>
  <structure name="TMyClassInMState" name_with_generic="TMyClassInMState" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <routine name="MyMethod" declaration="procedure MyMethod;" visibility="implicit" type="procedure">
    </routine>
    <variable name="MyField" declaration="MyField: Integer;" visibility="implicit">
    </variable>
    <property name="MyProperty" declaration="property MyProperty: Integer read MyField write MyField;" visibility="implicit" indexdecl="" type="Integer" reader="MyField" writer="MyField" default_in_class="False" default_value="" nodefault="False"   stored="">
    </property>
  </structure>
</unit>
