使用Delphi内置的NMFTP控件的例子
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NMFTP1.Connected then
    NMFTP1.Disconnect
  else
    begin
      NMFTP1.Host := Edit1.Text;
      NMFTP1.UserID := Edit2.Text;
      NMFTP1.Password := Edit3.Text;
      NMFTP1.Connect;
      NMFTP1.Download(远程文件名,保存到本地的文件名)  //我加入的
    end;
end;我在帮助里找到的,以后有问题先看看帮助,别浪费分了。