Обработка ошибок в TidHTTP
Возник вопрос как обработать ошибку если прокси сервер не отвечает(выскакивает окно с ошибкой) в следующем коде? И как правильно завершить соединение?:
procedure TForm1.Button1Click(Sender: TObject);
Var St : TMemoryStream;
begin
St := TMemoryStream.Create;
IdHTTP1.Request.UserAgent:='Mozzila 3.0/';
IdHTTP1.Request.Referer:='';
IdHTTP1.ProxyParams.ProxyServer:='221.11.124.35';
IdHTTP1.ProxyParams.ProxyPort:=8080;
IdHTTP1.Get('http://www.yandex.ru',St);
St.Position:=0;
ListBox1.Items.LoadFromStream(St);
St.Free;
end;
Заранее спасибо.