Delphi上传Ftp

Question

好吧，我试图在ftp上上传delphi，使用这段代码，它连接到服务器，但是当它上传文件时，程序没有响应：

idftp1.host:='host';    
idftp1.username:='username';    
idftp1.passoword:='password';    
idftp1.port:='port';    

idftp1.connect;
idftp1.put('c:\testfile\testfile.txt','testfilee.html');    
idftp1.quit;    
idftp1.disconnect  

有什么建议吗？感谢