<unit name="A">
  <routine name="Foo" declaration="procedure Foo(A: Integer);" type="procedure">
    <param name="A">This is some parameter.</param>
    <description><abstract> </abstract></description>
  </routine>
  <structure name="TMyException" name_with_generic="TMyException" type="class">
    <ancestor name="TObject" declaration="TObject" />
  </structure>
  <structure name="TMyClass" name_with_generic="TMyClass" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <property name="Bar" declaration="property Bar: Integer read FBar write SetBar;" visibility="public" indexdecl="" type="Integer" reader="FBar" writer="SetBar" default_in_class="False" default_value="" nodefault="False"   stored="">
    </property>
    <property name="Items" declaration="property Items [const Index: Integer]: string read GetItems write SetItems;" visibility="public" indexdecl="[constIndex:Integer]" type="string" reader="GetItems" writer="SetItems" default_in_class="False" default_value="" nodefault="False"   stored="">
    </property>
  </structure>
</unit>
