[maycampana]

Si Roman, tenes razón. Probé varias opciones que encontré y esta anda pero muy rápido, aquí va

Código Delphi [-]
Begin
   IdFTP1.OnWork:=IdFTP1Work;
   IdFTP1.Host:= 'nombreHost';
   IdFTP1.User:= username;
   IdFTP1.Password:= password;
   IdFTP1.Port:= 21;
Try
   IdFTP1.Connect;
except
   ShowMessage('ATENCION, problema de conexión');
end;
If IdFTP1.Connected then
    begin
        ProgressBar1.Position:=0;
        while ProgressBar1.Position < ProgressBar1.Max do
             ProgressBar1.StepIt;
     end; 
 
también probé este otro pero no hacía nada
begin
    ProgressBar1.Position:=0;
    ProgressBar1.Max:= IdFTP1.Size(nombredelarchivo) div 1024;
    IdFTP1.Get(nombredelarchivo(path),path),true);
    IdFTP1.Disconnect;
    IdFTP1.Free;
end;