紧急！简单问题！快来拿分！(100分)

我想用这句代码判断一个网址是否有效，
if InternetCheckConnection('http://cn.yahoo.com/', 1, 0)
其中网址部分内容我想获取用户在EDIT里输入的字符串，但我试了这样不行：
if InternetCheckConnection(edit1.text, 1, 0)
设变量也不行，var str
str:=edit1.text
if InternetCheckConnection(str, 1, 0)
好像是类型不匹配，请问该怎样解决，快！！！
马上加分！

InternetCheckConnection(Pchar(edit1.text), 1, 0)

这样试试：转换成pchar类型。
InternetCheckConnection(pchar(str), 1, 0)

多人接受答案了。