Via CEP Api (Brazil Zip Code api) for Delphi

ViaCep.pas

uses
  iPub.Rtl.Refit; // From https://github.com/viniciusfbb/ipub-refit

type
  TAddress = record
    Erro: Boolean;
    Cep: string;
    Logradouro: string;
    Complemento: string;
    Bairro: string;
    Localidade: string;
    UF: string;
    IBGE: string;
  end;

  [BaseUrl('https://viacep.com.br')]
  IViaCEPApi = interface(IipRestApi)
    ['{3B497871-BC65-4A4D-A8C3-56AD6F607EB9}']
    [Get('/ws/{ACEP}/json/')]
    function TryGetAddress(const ACEP: string; out AResult: TAddress): Boolean;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LAddress: TAddress;
begin
  if GRestService.&For<IViaCEPApi>.TryGetAddress(edtCep.Text.Replace('-', '').Replace('.', ''), LAddress) then
  begin
    if LAddress.Erro then
      Showmessage('Not found')
    else
      Memo1.Lines.Text := 'CEP: ' + LAddress.Cep + sLineBreak +
                          'End: ' + LAddress.Logradouro + sLineBreak +
                          'Compl: ' + LAddress.Complemento + sLineBreak +
                          'Bairro: ' + LAddress.Bairro + sLineBreak +
                          'Cidade: ' + LAddress.Localidade + sLineBreak +
                          'UF: ' + LAddress.UF + sLineBreak +
                          'Cod. IBGE: ' + LAddress.IBGE;
  end
  else
    Showmessage('Service failed');
end;