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