PRESVET: Definición del servicio web de comunicación de prescripciones veterinarias

[nincillo]

Ejemplo conexión .Net y C#
Y en el cliente .net será necesario establecer la siguiente configuración:

<system.serviceModel>
  <bindings>
    <wsHttpBinding>
      <binding name="BasicEndpoint">
        <security mode="TransportWithMessageCredential">
           <transport clientCredentialType="None" />
           <message clientCredentialType="UserName" establishSecurityContext="false" />
        </security>
      </binding>
    </wsHttpBinding>
  </bindings>
  <client>
    <endpoint address="https://servicio.mapa.gob.es/wspresvetcomunicacion/wspresvetcomunicacion.svc"
        binding="wsHttpBinding" bindingConfiguration="BasicEndpoint"
        contract="PresVetComunicacionPrescripcion.IPresVetComunicacionPrescripcion"
        name="BasicEndpoint" />
  </client>
</system.serviceModel>


static void Main(string[] args)
{
      using (PresVetComunicacionPrescripcionClient comunicacionPrescripcion = new PresVetComunicacionPrescripcionClient())
{
      comunicacionPrescripcion.ClientCredentials.UserName.UserName = "usuario";
      comunicacionPrescripcion.ClientCredentials.UserName.Password = "clave";
      System.Net.ServicePointManager.Expect100Continue = false;
      string resultado = comunicacionPrescripcion.EstaActivo();
      Console.Write(resultado);
      Console.ReadLine();
}
}

¿Alquien podría "traducirlo" a Delphi?. Gracias.