idhttp的问题(200分)

最近给电脑加了两条内存，然后将以前放在电脑上的系统备份ghost回去，就这样，问题来了（编程环境：winxp+delphi7+indy9,xp打了所有补丁，程序代码如下）：
Function GetFromWeb;Boolean;
var
GetHtml:TIdHttp;
Html:string;
begin
GetHtml:=TIdHttp.create(nil);
GetHtml.ReadTimeOut:=5000;
GetHtml.Connect(5000);//问题出在这一行
Try
Html:=GetHtml.Get('http://www.163.com');
finally
GetHtml.DisConnect;
end;
end;
结果：返回Socket Error #10061 Connection Refused
同样的代码，在我的电脑上编译后，程序在有的电脑上可以运行，有的出现以上错误，不知是否有人遇到过类似问题，如果解决？
另，我全新装了XP、2003系统，问题仍然出现，但在此之前没问题，而且同样代码，在我的电脑上虚拟机中（win2003)可以正常运行

idhttp.Connect;

to madeagle:
idhttp.Connect的缺省值为-1,而且我早就这样用过,问题依旧

肯定是其他部分的代码音响到着儿了,和加内存无关!