var
  sRetorno : String;
begin
  mmRetorno.Lines.Clear;

  if TConsultaCEP.Consultar(edtCEP.Text, sRetorno) then
  begin
    var cep : TCEPRetorno;
    cep := TJson.JsonToObject<TCEPRetorno>(sRetorno);

    ShowMessage('Logradouro: ' + cep.Logradouro + sLineBreak +
                'Complemento: ' + cep.Complemento + sLineBreak +
                'Bairro: ' + cep.Bairro  + sLineBreak +
                'Localidade: ' + cep.Localidade  + sLineBreak +
                'UF: ' + cep.UF + sLineBreak +
                'Unidade: ' + cep.Unidade + sLineBreak +
                'IBGE: ' + cep.IBGE + sLineBreak +
                'GIA: ' + cep.GIA);
  end
  else
  begin
    ShowMessage('CEP Inválido');
  end;
end;