FTP上传的问题

代码：
  if idftp1.Connected then idftp1.Disconnect;
  IdFTP1.Host := 'www.xxxxxxx.com';
  IdFTP1.Username := 'ftp';
  IdFTP1.Password := '2009';
  IdFTP1.Connect();
  IdFTP1.put('C:\Abigail Breslin.mpg','Abigail Breslin.mpg',true);
  IdFTP1.Disconnect;最后报一个连接超时的错，然后ftp服务器上只有一个0字节的Abigail Breslin.mpg文件。
各位高手能不能指教下我哪出错了。