TIdFTP Download ProgressBar funktiert nicht

[Koolance]

Ich experimentiere gerade mit einen mimi FTP-Client der nur eine Datei für mich runter laden soll. Runterladen klappt soweit super: Leider ist bei folgendem Code der AWorkCountMax immer 0.

Code:

procedure TftpForm.FTPClientWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
  ProgressBar1.Max:=AWorkCountMax;

Code zum runterladen.

Code:

procedure TftpForm.Button1Click(Sender: TObject);
var
  filestream:tfilestream;
  Datei:TextFile;
  b:byte;
begin
  //Dateii zum schreiben anlegen
  AssignFile(Datei,'.\update\test.zip');
  Rewrite(datei);
  CloseFile(Datei);

  filestream:=tfilestream.Create('.\update\test.zip', fmOpenWrite, fmShareDenyWrite);

//Username,password,host setzen

  FTPClient.Connect;

  FTPClient.get('temp.zip',filestream,false);


  FTPClient.Disconnect;
  FTPClient.Free;
  filestream.Free;
end;

Weitere Informationen:
Indy 10.1.5
CodeGear Rad Studio