请帮忙解决delphi7中idftp的问题

请问idftp上传需要加保护吗，这是我的程序：  
begin  
           idftp1.Host  :='www.XXXX.com';  
           idftp1.Username  :='usertest';  
           idftp1.password:='usertest';  
 
           with  idftp1  do  
           try  
               Connect;  
               ChangeDir('/www');  
               IdFTP1.Put('test.asp','.\test.asp');              
               //经常执行idftp1.put这一步程序就没有响应，但有时可以，如果出现没有响应，只有使用cuteftp上传（cuteftp可以上传，正常）  
               showmessage('上传TIPS成功');  
           finally  
               idftp1.Disconnect;  
           end;  
end;  
 
请问问题出在哪里，是否FTP服务器问题，还是控件问题？？？？  
好郁闷，希望得到解决，帮帮忙