Descargar directorio desde un FTP (recursivamente)

[radge]

Buenas , estoy buscando la forma de descargar-me un directorio entero de un FTP y recrear-lo en local. Tengo algo del tipo

/directorio/
/directorio/sub1/
/directorio/sub2/
/directorio/sub3/

Y hago algo como esto

   listaFTP:= TStringList.Create;
   ftpRepositori.ChangeDir('/directorio/');
   ftpRepositori.List(listaFTP,'',true);
   //envés de usar el '*.*' usamos '' y así nos 
  //devuelve los directorios que es lo que me interesa.

Pero una vez aquí no se como continuar.... la forma "larga" se me ocurre de comprobar si esta el directorio en local , sinó esta crearlo , recorrer el directorio fichero a fichero etc..etc...

He hecho un montón de busquedas a google con "delphi ftp download folder" , "delphi get directory from ftp" , ... y no encuentro nada y la verdad me extraña que nadie se haya encontrado con esto.

Por cierto yso Indy10 con delphi 7

gracias , radge