Fórum ProgressBar não funciona #418592

Por quê minha ProgressBar, num download via FTP não funciona?
Vejam o código abaixo:

unit U_FTPDownload;

interface

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

type
TF_FTPDownload = class(TForm)
ButtonConectar: TButton;
ButtonDesconectar: TButton;
IdFTP1: TIdFTP;
ProgressBar: TProgressBar;
LabelConect: TLabel;
IdAntiFreeze1: TIdAntiFreeze;
procedure ButtonConectarClick(Sender: TObject);
procedure ButtonDesconectarClick(Sender: TObject);
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
private
{ Private declarations }
BytesToTransfer: LongWord;
public
{ Public declarations }
end;

var
F_FTPDownload: TF_FTPDownload;

implementation

{$R *.dfm}

procedure TF_FTPDownload.ButtonConectarClick(Sender: TObject);
begin

if not IdFTP1.Connected then
begin
IdFTP1.TransferType := ftBinary;
IdFTP1.User := usuario;
IdFTP1.Password := password;
IdFTP1.Host := ftp.meuftp.com.br;
IdFTP1.Connect;
LabelConect.Enabled := true;
LabelConect.Caption := Transferindo;
ButtonConectar.Enabled := false;
ButtonDesconectar.Enabled := false;
IdFTP1.ChangeDir(/);
IdFTP1.Get(DADOS.DBF , DADOS.DBF , true);
ButtonDesconectar.Enabled := true;
end;

if IdFTP1.Connected then
begin
LabelConect.Caption := Conectado;
ButtonConectar.Enabled := false;
ButtonDesconectar.Enabled := true;
end;
end;

procedure TF_FTPDownload.ButtonDesconectarClick(Sender: TObject);
begin
if IdFTP1.Connected then
begin
IdFTP1.Disconnect;
ButtonConectar.Enabled := true;
ButtonDesconectar.Enabled := false;
LabelConect.Caption := Desconectado;
end;
end;


procedure TF_FTPDownload.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar.Position := AWorkCount;
end;

procedure TF_FTPDownload.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then
ProgressBar.Max := AWorkCountMax
else
ProgressBar.Max := BytesToTransfer;
end;

procedure TF_FTPDownload.IdFTP1WorkEnd(Sender: TObject;
AWorkMode: TWorkMode);
begin
BytesToTransfer := 0;
ProgressBar.Position := 0;
end;

end.


Alguem pode me dar uma luz?