Суть проблемы такова код

procedure TForm1.XiButton1Click(Sender: TObject);
var
s:String;
c:String;
begin
s := InputBox(Введите,'Введите адрес','http://');
RichEdit1.Text := IdHTTP1.Get(s);
end;

Но выдаёт ошибку вида

"Socket Error #11001
Host not found"
и выделяетса строка
"RichEdit1.Text := IdHTTP1.Get(s);"

В чём может быть проблема наверно надо настроить както idhttp.
За рание благодарен.