WebService - Erro no meio de um processo de inclusão

Ola, estou usando webservice para passar dados do banco de dados local para o servidor.
No meio do processo aparece o seguinte erro:
"Em um documento XML só sáo permitidos elementos de nível superior.

Line : 2
<b> Warning </b>: Invalid argument suppli.


Alguem sabe que erro é esse o como arrumar?
Estou Usando delphi 2007 e Windows 7, abaixo o codigo que pega informacao do banco de dados e grava no servidor na internt

procedure TCR142.BitBtn1Click(Sender: TObject);
var wcliweb, wsenweb, wretweb : string;
ObjSoap:adekz_cozimaxPort;
begin
wsenweb := 'COZIMAX';
ObjSoap := HTTPRIO1 as adekz_cozimaxPort;

Arq005.first;
while not Arq005.eof do
begin
wcliweb := '';

if Arq005cgccli.value <> '' then
begin
wcliweb :='[{"estado":"' + Arq005EstCid.value + '","cidade":"' + Arq005NomCid.value + '","nome":"' + Arq005Nomcli.value + '",' +
'"endereco":"' + Arq005Endcli.value + '","email":"' + Arq005Endele.value + '","telefone":"' +Arq005Foncla.value +'",' +
'"bairro":"' + Arq005baicli.value + '","cep":"' + Arq005cepcli.value + '","telefone2":"' + Arq005Fonclb.value + '",' +
'"cnpj":"'+ copy(arq005cgccli.value,01,02) + copy(arq005cgccli.value,04,03) + copy(arq005cgccli.value,08,03) + copy(arq005cgccli.value,12,04) + copy(arq005cgccli.value,17,02) + '",' +
'"tipo":"' +Arq005CodSeg.asstring +'","url":"' + Arq005LojVir.value+ '"}]';


wretweb := (ObjSoap.incluiLoja(wsenweb,wcliweb));
if wretweb <> '1' then
begin
showmessage('Erro na Inclusão do Cliente no WebService');
Abort;
Exit;
end;
end;

Arq005.next;
end;

showmessage('Inclusão do Cliente no WebService realizada com sucesso!');
close;
end;

obrigado