family: courier new,courier,monospace;">
<span style="font-family: courier new,courier,monospace;">&nbsp;
LElement :=
LSchema.getFirstChildElement(ANameSpaces.GetNameSpaceCode(ID_SOAP_NS_SCHEMA_2001,
true)+'complexType');</span><br
 style="font-family: courier new,courier,monospace;">
<span style="font-family: courier new,courier,monospace;">&nbsp; <span
 style="font-weight: bold;">while </span>assigned(LElement) <span
 style="font-weight: bold;">and </span>(LElement.getAttribute('name')
&lt;&gt; '