[marilinspi]

hola gracias por sus respuestas, lo pude resolver asi

            
for I:= 0 to IdFTP1.DirectoryListing.Count-1 do
            begin
              idFTP1.Get(idFTP1.DirectoryListing[i].FileName, 'C:\Prueba\' + idFTP1.DirectoryListing[i].FileName );                ProgressBar2.Position:=ProgressBar2.Position+1;
              Sleep(500);
            end;
          except
            MessageDlg('No se completo la descarga de archivos.', mtWarning, [mbOK], 0);
          end;

Otra cosita, como tendria que hacer para que el archivo que bajo,reemplaze al ya existente, porque si ya existe me da un error " Destination file already exists" y no me lo baja. Gracias desde ya.