delphi怎么获取网页的http返回状态及反应时间

delphi如何获取网页的http返回状态及反应时间
delphi如何获取网页的返回状态，就像浏览器中返回的http 500错误，404错误等 

另外能不能获取到打开一个网页的反应时间，可以大致参考网页打开的速度

谢谢！

[解决办法]
都可以实现的，具体的你还是查资料吧！
[解决办法]
//开始计时...........
WebBrowser1.Navigate('http://www.baidu.com');
while (WebBrowser1.ReadyState <> 4) do //0未初始化1正加载2已加载3激活4完成
Application.ProcessMessages;
//计算打开时间.....
WebBrowser1.oleobject.Document.body.Scroll := 'yes';