Bajar varios archivos de internet con idFTP

[marilinspi]

hola, ya he logrado subir todos mis archivos a internet son como 30... recorri mi carpeta 'prueba' y fui subiendo de a uno, mediante

var
 sr: TSearchRec;
 Directorio:String;
begin
 Directorio:='C:\prueba\';
 if idFTP1.Connected then
 begin
   if FindFirst(Directorio + '*', faAnyFile, sr) = 0 then
     repeat
       if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')and (sr.Name <> '..') then
         idFTP1.Put(Directorio + sr.Name, 'public_html/Descargas/pruebas/'+ sr.Name);  
     until FindNext(sr) <> 0;
   FindClose(sr);
   idFTP1.Disconnect;
   ShowMessage('Fichero subido.');
 end;
end;

ahora lo que necesito es bajar todos esos archivos...y lo que no se es como recorrer el directorio en la web para ir bajando de a uno. Gracias desde ya.