XMLHorus->SaveToStream(memStream);
    myByteArray->set_length(memStream->Size);

    if(memStream->Size > 0)
        Move(memStream->Memory, myByteArray, memStream->Size);


    RecebeDadosWS *integracao = GetRecebeDadosWS(true, "http://189.28.128.37/horus-ws-basico/RecebeDadosWS?wsdl", HTTPRIO1);
    integracao->recebeDados(myByteArray);`