Delphi - Consumindo WebService AverbWeb

Caros amigos,
Estou precisando consumir um webservice via DELPHI , onde tenho que passar dados em um array associativo. Consegui fazer em PHP conforme código abaixo.
Alguém pode me ajudar fazer em delphi xe2 , leambrando que estou usando componente SOAP e HTTPRIO?

Código EM PHP

<?php
$client = new SoapClient("http://generali.averbweb.net.br/Webservice/soapservice?WSDL", array("trace" => 1, "cache_wsdl" => WSDL_CACHE_NONE));
try {
$args = array(
"usuario" => "webservice.278",
"senha" => "278123",
"emit_nome" => "EMITENTE",
"emit_cnpj" => "05.988.286/0001-89",
"emit_cidade" => "Cotia",
"emit_uf" => "SP",

"tipo_documento" => "CTE",
"num_documento" => "1",
"serie_documento" => "1",
"data_emissao" => "27/09/2015",
"tipo_mercadoria" => "ARROZ",
"tipo_embarque" => "RODOVIARIO",
"valor_mercadoria" => "1.200,00",
"valor_container" => "20.000,00",
"placa" => "AAA1234",

"remet_nome" => "REMETENTE",
"remet_cnpj" => "53.561.748/0001-20",
"remet_cidade" => "Cotia",
"remet_uf" => "SP",

"dest_nome" => "DESTINATARIO",
"dest_cnpj" => "53.561.748/0001-20",
"dest_cidade" => "Cotia",
"dest_uf" => "SP",

"consig_nome" => "CONSIGNATARIO",
"consig_cnpj" => "53.561.748/0001-20",
"consig_cidade" => "Cotia",
"consig_uf" => "SP",
);
$client->adicionarAverbacao($args);
$response = $client->__getLastResponse();

echo '<pre>';
print_r($response);
echo '</pre>';

} catch(SoapFault $fault) {
echo '<pre>';
print_r($fault);
echo '</pre>';
}

?>