delphi2007 教程

关于indy连接ftp的问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061129180236228.html
try          
          IdFTP1.Disconnect;  
          IdFtp1.Host:='61.15.22.11';  
          IdFtp1.Port:=21;  
          IdFtp1.Username:='admin';  
          IdFtp1.Password:='123';  
   
          IdFTP1.IOHandler   :=   IdIOHandlerStack1;  
          IdIOHandlerStack1.TransparentProxy   :=   IdSocksInfo1;  
          IdSocksInfo1.Version   :=   svSocks5;  
          IdSocksInfo1.Host:='192.168.6.254';  
          IdSocksInfo1.Port:=1080;  
   
          IdFTP1.Connect;  
          Cursor   :=   crArrow;  
          ShowMessage('连接成功');  
        except  
          ShowMessage('连接失败');  
        end;  
   
        if   IdFTP1.Connected   then  
        begin  
              IdFTP1.ChangeDir('/');  
              IdFTP1.TransferType   :=   ftASCII;  
              IdFTP1.List(listbox1.items);  
      end;  
   
  已经连接上远程主机，但是在list目录时报错。  
  提示'host   unreachable'，不知道怎么回事，请各位看看。  
  急啊

帮顶

怎么没人解答呢？