ACBrSedex com erro

[VolneiRW]

Boa Tarde. 

Favor corrigir a formatação dos campos double no componente ACBrSedex pois estão com erro, pois se mandar na atual formato não retorna o valor calculado certo.

Segue abaixo exemplo:

url original do componente com a formatação: FormatFloat('#,00', Value)
http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa=&sDsSenha=&sCepOrigem=90630070&sCepDestino=96508011&nVlPeso=001&nCdFormato=1&nVlComprimento=020&nVlAltura=010&nVlLargura=030&sCdMaoPropria=N&nVlValorDeclarado=1.500&sCdAvisoRecebimento=S&nCdServico=40010&nVlDiametro=000&StrRetorno=xml
Retorno
<Servicos>
<cServico>
<Codigo>40010</Codigo>
<Valor>22,10</Valor>
<PrazoEntrega>1</PrazoEntrega>
<ValorSemAdicionais>18,50</ValorSemAdicionais>
<ValorMaoPropria>0,00</ValorMaoPropria>
<ValorAvisoRecebimento>3,60</ValorAvisoRecebimento>
<ValorValorDeclarado>0,00</ValorValorDeclarado>
<EntregaDomiciliar>S</EntregaDomiciliar>
<EntregaSabado>N</EntregaSabado>
<Erro>0</Erro>
<MsgErro/>
</cServico>
</Servicos>

url com correção da formatação:  FormatFloat('#.00', Value)
http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa=&sDsSenha=&sCepOrigem=90630070&sCepDestino=96508011&nVlPeso=1,000&nCdFormato=1&nVlComprimento=20,000&nVlAltura=10,000&nVlLargura=30,000&sCdMaoPropria=N&nVlValorDeclarado=1500,00&sCdAvisoRecebimento=S&nCdServico=40010&nVlDiametro=,000&StrRetorno=xml

Retorno

<Servicos>
<cServico>
<Codigo>40010</Codigo>
<Valor>43,85</Valor>
<PrazoEntrega>1</PrazoEntrega>
<ValorSemAdicionais>18,50</ValorSemAdicionais>
<ValorMaoPropria>0,00</ValorMaoPropria>
<ValorAvisoRecebimento>3,60</ValorAvisoRecebimento>
<ValorValorDeclarado>21,75</ValorValorDeclarado>
<EntregaDomiciliar>S</EntregaDomiciliar>
<EntregaSabado>N</EntregaSabado>
<Erro>0</Erro>
<MsgErro/>
</cServico>
</Servicos>

em anexo unit ACBrSedex.pas com as devidas correções.

ACBrSedex.pas