Delphi 7怎么上载Win7系统里FTP目录里的文件

delphi 里 上传 FTP 可以使用 IdFTP 组件，示例代码如下：

procedure TForm1.Button3Click(Sender: TObject)

var

  fi : string

begin  //上传

  if OpenDialog1.Execute then

  begin

     fi := OpenDialog1.FileName

    IdFTP1.Put('f:\原始文件名.rar','上传的文件名.rar')//上传，

  end

end

---