Descargar archivos de FTP

[juggern]

Buenos días chicos,

Tengo un problemilla, he estado buscando en el foro pero no me funciona bien, o no lo consigo.
Tengo un FTP que tengo que consultar y descargarme los ficheros que haya pero no se el nombre de los ficheros.
Es decir, me conecto y tengo que descargar lo que haya.

Código Delphi [-]
var
   StringList: TStringList;
r: integer;
begin

    StringList:= TStringList.Create;

    FTP.Connect;
    FTP.ChangeDir('/midirectorio');
    FTP.List(StringList, '', True);
       for r := 0 to StringList.count-1 do begin
          FTP.get(StringList[r],ExtractFilePath(Application.ExeName)+'\',True);
        end;

end.

Mas o menos, lo he escrito a mano ahora. El problema es que al llegar el FTP.List, me tira un error, me dice que no puede entontrar el directorio y me muestra el directorio de mi ejecutable.
Yo lo que quiero es poder guardar los nombres de los ficheros para luego descargarlos y borrarlos.

No se qué me falla porque en todos los ejemplos que encuentro lo veo así.

Gracias!!

Un saludo