Busca End. Por CEP

Caros Amigos,

Gostaria de uma dica da galera:

preciso de uma rotina que busce, via webservice ou de uma outra forma qualquer, o endereço referente a um CEP qualquer. Tipo , eu digito o CEP e vem o Logradouro, end, bairro, cidade e UF.

tenho essa função aqui

procedure TForm1.BuscaCEP(CEP: String);

var

vLista :TStringList;

vTemp ,

vEnd,vBairro,vCidade,vUF : String;

begin

vTemp := IdHTTP.Get('http://republicavirtual.com.br/web_cep.php?cep='+CEP+'&formato=query_string');//formato string

memo1.Lines.Add(IdHTTP.Get('http://republicavirtual.com.br/web_cep.php?cep='+CEP+'&formato=xml'));// formato

vLista:= TStringList.Create;

vLista.Text:= UpperCase(StringReplace(vTemp, '&', #13#10, [rfreplaceAll]));

if vLista.Values['RESULTADO'] = '0' then

raise Exception.Create('Não há dados para esta seleção!');

 

vEnd := vLista.Values['TIPO_LOGRADOURO'] + ' ' + vLista.Values['LOGRADOURO'];

edtLogradouro.Text := UpperCase(StringReplace(vEnd, '+', ' ', [rfreplaceAll]));

 

vBairro := vLista.Values['BAIRRO'];

edtBairro.Text :=UpperCase(StringReplace(vBairro, '+', ' ', [rfreplaceAll]));

 

vCidade := vLista.Values['CIDADE'];

edtCidade.Text :=UpperCase(StringReplace(vCidade, '+', ' ', [rfreplaceAll]));

 

vUF := vLista.Values['UF'];

edtUF.Text :=UpperCase(StringReplace(vUF, '+', ' ', [rfreplaceAll]));

 

end;

Eis a questao...

nos edits, quando tem algum acento nas palavras, o conteudo fica com caracteres "malucos"...

no memo, sai direitinho

A questão... alguem tem uma dica melhor do que essa pra me passar? Alguem sabe o por que do erro nos edits?