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="[login to view URL]" xmlns:tem="[login to view URL]"> <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.01</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>