Var
i: integer;
ACBrCEP1: TACBrCEP;
Begin
ACBrCEP1 := TACBrCEP.Create(nil);
Try
ACBrCEP1.WebService := wsBrasilAPI;//wsNenhum,wsBuscarCep,wsCepLivre,wsRepublicaVirtual,...
ACBrCEP1.ChaveAcesso := edChaveWS.Text;
ACBrCEP1.Usuario := edUser.Text;
ACBrCEP1.Senha := edPass.Text;
ACBrCEP1.ProxyHost := edProxyHost.Text;
ACBrCEP1.ProxyPort := edProxyPort.Text;
ACBrCEP1.ProxyUser := edProxyUser.Text;
ACBrCEP1.ProxyPass := edProxyPass.Text;
ACBrIBGE1.ProxyHost := edProxyHost.Text;
ACBrIBGE1.ProxyPort := edProxyPort.Text;
ACBrIBGE1.ProxyUser := edProxyUser.Text;
ACBrIBGE1.ProxyPass := edProxyPass.Text;
ACBrIBGE1.IgnorarCaixaEAcentos := cbIgnorar.Checked;
ACBrCEP1.BuscarPorCEP(edCEP.Text);
If ACBrCEP1.Enderecos.Count > 0 Then
Begin
For i := 0 To Pred(ACBrCEP1.Enderecos.Count) Do
Begin
edtRua.Text := ACBrCEP1.Enderecos[i].Logradouro;
//...
End;
End;
Finally
FreeAndNil(ACBrCEP1);
End;
End;