[apicito]

No acabo de comprender como se construye el objeto que le tengo que pasar al soap.
He tratado de hacerlo así

var 
  LDocument         : IXMLDocument;
  PeticionConsulta  : IXMLPeticionConsultaTipo;
  RespuestaConsulta : IXMLRespuestaConsultaTipo;
  Estado            : IXMLNode;
  TipoMensaje       : IXMLNode;
.....
.....
  LDocument := TXMLDocument.Create(nil);
  LDocument.Active := True;
  LDocument.DocumentElement := LDocument.CreateNode('PeticionConsulta', ntElement, '');
  LDocument.DocumentElement.Attributes['ComoAutorizado'] := 'false';
  LDocument.DocumentElement.Attributes['IncluirNombreOrganismoEmisor'] := 'true';
  LDocument.DocumentElement.Attributes['IncluirDatosRecogida'] := 'true';
  Estado := LDocument.CreateNode('Estado', ntElement);
  LDocument.DocumentElement.ChildNodes.Add(Estado);
  TipoMensaje := LDocument.CreateNode('TipoMensaje', ntElement);
  LDocument.DocumentElement.ChildNodes.Add(TipoMensaje);

y obtengo este xml

<PeticionConsulta ComoAutorizado="false" IncluirNombreOrganismoEmisor="true" IncluirDatosRecogida="true">
   <Estado/>
   <TipoMensaje/>
</PeticionConsulta>

El manual del webservice lo describe así:

Alguien puede hecharme una mano con esto?.