终止 IdFtp下载

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP,
  Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    IdFTP1: TIdFTP;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure a(var message: TMessage); message WM_USER+1;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses
  IdReplyRFC;

procedure TForm2.a(var message: TMessage);
begin
  COLOR := clRed;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  IdFTP1.Connect;
  IdFTP1.ChangeDir('/DelphiDir');

    TThread.CreateAnonymousThread(procedure begin
      try
        IdFTP1.Get('/DelphiDir/delphicbuilder10_1.iso', 'd:\jjw_jjw.rar', true);
      except
        on E: EIdReplyRFCError do
          Postmessage(handle, wm_user+1, 0, 0);
      end;
    end).Start;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  IdFTP1.KillDataChannel;
end;