listar directorio ftp

[jaimeh]

Hola a todos

Estoy usando delphi 2007, y las Indy.
Quiero copiar un directorio de un servidor a un directorio local mediante
ftp. Para lo cual hago lo siguiente.
Me conecto al servidor sin problemas.
En el uses tengo puesto tambien idFTPList
transferir un archivo con con get si lo hace, pero cuando
intento transferir un directorio con la siguiente rutina, no lo consigo.

Código Delphi [-]

    idftp1.List;

    for I:= 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
    try
      idFTP1.Get(idFTP1.DirectoryListing[i].FileName,
               'C:\Datos\Delphi\Proyectos\InformesLite\ftpRecibidos\' +
                   idFTP1.DirectoryListing[i].FileName );
    except
    MessageDlg('No se completo la descarga de archivos.', mtWarning, [mbOK], 0);
    end;

    end;

el tema es que no entra en el bucle for.
no se si no esta funcionando el list o el directoryListing o es que no
estoy haciendo bien la forma de leer el directorio.

A ver si alguien me puede orientar

Muchas gracias a todos