1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 FTP:=TIdFTP.Create(nil);
 try
  http://FTP.OnWorkBegin:=FTPOnWorkBegin;
  http://FTP.OnWork:=FTPOnWork;
  http://FTP.OnStatus:=FTPOnStatus;
.
.
  http://FTP.Get(...
.
.
.

procedure TSyncThread.FTPOnWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
 if AWorkMode=wmRead then SyncForm.ProgressBar.Position:=SyncForm.ProgressBar.Tag+AWorkCount;
 if bClose then http://FTP.Abort;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

 TSyncThread = class(TThread)
  private
  protected
   procedure Execute; override;
   procedure FTPOnWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
  end;

var Form1: TForm1; bClose: Boolean=false; FTP: TIdFTP;

implementation

{$R *.dfm}

procedure TSyncThread.Execute;
begin
 FTP:=TIdFTP.Create(nil);
 with FTP do begin
  OnWork:=FTPOnWork;
  Host:='...';
  Username:='...';
  Password:='...';
  Passive:=true;
  Connect;
  ChangeDir('...');
  Get('...','...');
 end;
 http://FTP.Free;
end;

procedure TSyncThread.FTPOnWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
 if bClose then http://FTP.Abort;
end;

procedure TForm1.Button1Click(Sender: TObject);
var thrFtp: TSyncThread;
begin
 thrFtp:=TSyncThread.Create(true);
 thrFtp.Priority:=tpNormal;
 thrFtp.FreeOnTerminate:=true;
 thrFtp.Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 bClose:=true;
end;