<unit name="ok_final">
  <structure name="TMyObject" name_with_generic="TMyObject" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <routine name="MyFinalMethod" declaration="procedure MyFinalMethod; virtual; final;" visibility="public" type="procedure">
    </routine>
  </structure>
</unit>
