Jako chybu konkretne ti to vyhodi? Vzdyt to osetreno mas. Pokud chces vypsat chybu, ze stranka neexistuje, pak si rozsir Except, treba takto:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  s: string;
begin
 IdHTTP:= TIdHTTP.Create(nil);
 try
   try
     s:=IdHTTP.Get('https://www.google.cz/');
   except
      on E: Exception do
        ShowMessage('Stranka nenalezena' + #13 + E.ClassName + ': ' + E.Message);
    end;
  finally
    IdHTTP.Free;
  end;
end;