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秒或者更低,测试一下效果。