delphi Tidhttp error could

var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create;
  try
    try
      IdHTTP.Get('http://www.example.com');
    except
      on E: EIdHTTPProtocolException do
      begin
        ShowMessage('Protocol error occurred: ' + E.Message);
      end;
      on E: EIdSocketError do
      begin
        ShowMessage('Socket error occurred: ' + E.Message);
      end;
      on E: Exception do
      begin
        ShowMessage('An error occurred: ' + E.Message);
      end;
    end;
  finally
    IdHTTP.Free;
  end;
end;