TIdFtp y ProgressBar

[salvica]

Bueno, pues parece que la solución está en Trucomanía, ellos ponen:

Código Delphi [-]
   ...
   ProgressBar.Max := IdFTP.Size( FicheroFtp );
   BeginWork( wmRead );
   try
      Get( FicheroFtp, FicheroLocal, true, false );
   finally
      EndWork( wmRead );
   end;
   ...

Y la barra se actualiza (aunque, a mí no me llega hasta el final )

Lo he intentado cambiando

Código Delphi [-]
   FileSize               := IdFTP.Size( FicheroFtp );
   ProgressBar.Max   := FileSize;
   ProgressBar.Step  := FileSize div IdFTP.RecvBufferSize;

pero no me funciona

Saludos
salvica