delphi实现FTP上传与下载

         由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。
       针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。

Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: String);
  private
    { Private declarations }<