delphi连接ftp的问题

我用ftp上传一个文件到ftp服务器上，前几天都用的好好的，后面一直到现在连不上ftp了
-------------------------------------
  IdHTTP1:=TIdHTTP.Create(GetIP); //为防止断网后idhttp无法启动起来,所以每次都创建一个新的
  IdHTTP1.AllowCookies:=True;
  IdHTTP1.ReadTimeout:=3000;
flag4:=0;
    //以ftp格式上传上去
    if idFTP1.Connected then
    try
      IdFTP1.Quit;
    finally
    end
    else
    with IdFTP1 do try
      Username:='hztfdt';
      Password:='20080512';
      Host:='www.hztianfu.com.cn';
      Connect(True,5);
    finally
    end;
    flag4:=1;//flag4=1说明上传到服务器成功
-------------------------
测试显示flag4一直是0没有变成过1；地址密码都没有改过，不知道是哪里出来问题是在找不到，请大侠帮忙！！！

---

把 Connect(True,5); 调成 Connect(True,3000);就好了。