怎么样在DELPHI7中发送一个URL并获得返回值？(50分)

该URL如：http://www.xxx.com/getvalue.asp?id=xxx

需要向它发送一个请求，然后取得返回值。
在VB中是这样实现的
private sub btn_click()
set inet=createobject("inetctls.inet")
inet.url="http://www.xxx.com/getvalue.asp?id=xxx"
inet.accesstype=0
inet.requesttimeout=100
text1.text=inet.openurl()
set inet=noting
end sub

我也想知道

用idHTTP.get

结帖