XmlDocument - Consulta CEP - Erro apenas fora do Delphi ao executar .exe

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, DBCtrls, DB, Mask, Buttons,
  BmsXPTopBar, ExtDlgs, xmldom, XMLIntf, msxmldom, XMLDoc;

procedure TFrmEmpresa.Button1Click(Sender: TObject);
var
  XMLDoc: TXMLDocument;
  loNode: IXMLNode;
  tipo, resultado, txt: string;
begin
 // memoRes.Clear;
  XMLDoc := TXMLDocument.Create(self);
  try
    XMLDoc.FileName := 'http://www.buscarcep.com.br/?cep=' + SomenteNumero(dbCep.Text) +  '&formato=xml&chave=1Cjy/wEcgwDJO0yHxTECqWuI5HTDTQ/';
    try
      XMLDoc.Active := True;
   //   memoRes.Lines.AddStrings(XMLDOc.XML);
    except
      raise Exception.Create('CEP informado não existe!');
      exit;
    end;
    loNode := XMLDoc.DocumentElement.ChildNodes.FindNode('retorno');
    if loNode = nil  then
      exit;
    dbCep.Text           := loNode.ChildNodes['cep'].Text;
    dbUF.Text           := loNode.ChildNodes['uf'].Text;
    dbCidade.Text       := loNode.ChildNodes['cidade'].Text;
    dbBairro.Text       := loNode.ChildNodes['bairro'].Text;
    tipo     := loNode.ChildNodes['tipo_logradouro'].Text;
    dbEndereco.Text   :=  loNode.ChildNodes['logradouro'].Text;
    resultado    := loNode.ChildNodes['resultado'].Text;
    txt := loNode.ChildNodes['resultado_txt'].Text;
    loNode.NextSibling;
  finally
    FreeAndNil(XMLDoc);
  end;
end;