[marilinspi]

gracias a todos, lo puede resover 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 hago para que el archivo que estoy bajando reemplaze al ya existente? porque me da un error "Destination file already exists". Gracias desde ya.