delphi InternetOpenUrl 死锁

[liqiao_2010]

在使用InternetOpenUrl发现有时会出现死锁情况，
通过 InternetSetOption(hsession, Internet_OPTION_CONNECT_TIMEOUT, @TimeOut, 4);来设置超时时间发现无效。

求大神，
另外在网上也看到说可以用异步请求的方式，求代码。