idhttp.get 连接超时会发生异常

 procedure TForm1.btn1Click(Sender: TObject);
begin
  try
  mmo1.Text := idhttp.Get('http://www.xunlei.com');
  except
    ShowMessage('bb');
    end;
  if mmo1.Text = '' then ShowMessage('a');
end;

 

窗体添加idhttp控件，ReadTimerOut设置为1000//1秒或者更低，测试一下效果。