Consumir webservice usando soap - Delphi

Preciso de um programa que seja executável em windows (.exe), desenvolvido em Delphi, qualquer versão, que quando executado envie todos os xml existentes na pasta (a pasta que o executável estiver, não precisa ser outra) para o endpoint. Os arquivos enviados devem ser renomeados de .xml para .old . Os retornos devem ser gravados na mesma pasta, com os mesmos nomes dos arquivos porém com a extensão .res.

Tenho o wsdl. Gostaria dos fontes do projeto.
Túlio
Para se ter uma idéia dos xml de envio :

Exemplo 1 :
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/
"
xmlns:tem="http://tempuri.org/
">
<soapenv:Header>
<tem:classAuthentication_v2>
<tem:CNPJTransportadora>12121213232323</tem:CNPJTransportadora>
<tem:Razaosocial>transportes sa</tem:razaosocial>
<tem:chaveacesso>ab621976a839420a98cb72bbfa8d5e15</tem:chaveacesso>
</tem:classauthentication_v2>
</soapenv:header>
<soapenv:body>
<tem:receberconhecimentos>
<tem:paramdocumentosfiscais>
<tem:documentofiscal_v2>
<cnpjcontratantetransporte>40432544046210</cnpjcontratantetransporte>
<razaosocial>transportes sa</razaosocial>
<filialemissor>transportes sa</filialemissor>
<serie>1</serie>
<numero>96079</numero>
<dataemissao>2015-08-21</dataemissao>
<condicaofrete>c</condicaofrete>
<pesotransportado>0.105</PesoTransportado>
<ValorDocumento>13.11</ValorDocumento>
<BaseCalculoApuracaoICMS>13.11</BaseCalculoApuracaoICMS>
<TaxaICMS>12.00</TaxaICMS>
<ValorICMS>1.57</ValorICMS>
<ValorISS>0.00</ValorISS>
<ValorFretePeso>11.53</ValorFretePeso>
<ValorFreteTaxa>0.0

1</ValorFreteTaxa>
<SubstituicaoTributaria>false</SubstituicaoTributaria>
<CNPJEmissorConhecimento>07458223000146</CNPJEmissorConhecimento>
<CNPJCPFEmbarcador>40432544046210</CNPJCPFEmbarcador>
<CNPJCPFDestinatario>10917143000388</CNPJCPFDestinatario>
<TipoDocumento>CTE</TipoDocumento>
<TipoMeioTransporte>Terrestre</TipoMeioTransporte>
<FilialEmissoraConhecimentoOriginador>07458223000146</FilialEmissoraConhecimentoOriginado
r>
<SerieConhecimentoOriginador>1</SerieConhecimentoOriginador>
<NumeroConhecimentoOriginador>95872</NumeroConhecimentoOriginador>
<CodigoSolicitacaoColeta/>
<NotasFiscais>
<NumeroNotaFiscal>1034353</NumeroNotaFiscal>
<NumeroPedido/>
<SerieNotaFiscal>110</SerieNotaFiscal>
<KeyNotaFiscal>35150840432544046210551100010343531742357572</KeyNotaFiscal>
</NotasFiscais>
<ItensDocumentosFiscais>
<Descricao>Conhecimento original</Descricao>
<CodigoOcorrencia>46</CodigoOcorrencia>
<DataOcorrencia>2015-08-20T08:47:10</DataOcorrencia>
</ItensDocumentosFiscais>
</tem:DocumentoFiscal_v2>
</tem:paramDocumentosFiscais>
</tem:receberConhecimentos>
</soapenv:Body>
</soapenv:Envelope>