Error Al Hacer peticiones get desde un form

[webmasterplc]

Buenas Tengo un inconveniente estoy haciendo algo para peticiones get desde delphi pero al llamar el procedimiento me da este error
raised exception class eidhttpprotocolexception with message

el codigo de la unidad es:

Código Delphi [-]
unit UnitEnvio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, Buttons, shellapi, IdHTTP,
  ComCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    edtusuario: TEdit;
    edtpass: TEdit;
    edtcel: TEdit;
    edturl: TEdit;
    edt1: TEdit;

    function componerURLFinal () : string;
    procedure mmo1Exit(Sender: TObject);
    procedure btn1Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function enviarSMS (url : string) : string;
var
  obtenerHTTP : TidHTTP;
  web : TStringList;
begin
  web := TStringList.Create;
  obtenerHTTP := TidHTTP.Create(nil);
  try
    web.Text := obtenerHTTP.Get(url);
  except
    on e: exception do
    begin
      obtenerHTTP.Free;
    end;
  end;
  enviarSMS := web.Text;
end;

function Tform1.componerURLFinal;
var
  url, numeroTelefono, mensaje, usuario, contrasena : string;
  urlFinal : string;
begin
  url := 'http://localhost/webservices/SendSms';
  numeroTelefono := edtcel.Text;
  mensaje := mmo1.Text;
  usuario := edtusuario.Text;
  contrasena := edtpass.Text;

  urlFinal := url + '/?phonenumber=' + numeroTelefono +
      '&mensaje=' + mensaje +
      '&user=' + usuario + '&password=' + contrasena;

  edturl.Text := urlFinal;
end;




procedure TForm1.mmo1Exit(Sender: TObject);
begin
componerURLFinal;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  web:TStringList;
begin
web.text:= enviarSMS(edturl.Text);
end;

end.