idhttp 设置访问socks代理 异常错误？

Question

idhttp1 设置访问socks代理 异常错误？如果socks5访问不成功 则提示一个消息 或者  memo2.add()  程序不要中断 如何实现
现在的是 socks代理不成功就抛出一个异常处理 程序就中断啦
 IdSocksInfo1.Host := '192.168.1.10'
  IdSocksInfo1.Port := 8888;
 IdSocksInfo1.Version := svSocks5;
IdIOHandlerSocket1.SocksInfo := IdSocksInfo1;
  IdHttp1.IOHandler := IdIOHandlerSocket1;
 Memo1.Lines.Add(IdHttp1.Get('edit1.text'));

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSocksInfo1.Version := svSocks5;
IdIOHandlerSocket1.SocksInfo := IdSocksInfo1;
IdHttp1.IOHandler := IdIOHandlerSocket1;
try
IdSocksInfo1.Host := edit1.Text   ;
IdSocksInfo1.Port :=strtoint(pchar(edit2.Text));
Memo1.Lines.Add(IdHttp1.Get('edit1.text'));
except
 showmessage('error');
end;
end;
郁闷 运行时出错 求解