Borrar todos los archivos de carpeta FTP

[Carmelo Cash]

El código completo es:

Código Delphi [-]
var
  i: integer;
begin
    FTP.ChangeDir( edCarpeta.text );
    memlista.lines.add(ftp.RetrieveCurrentDir);
    FTP.List;
    for i := 0 to FTP.DirectoryListing.Count-1 do
    begin
       memlista.lines.add(FTP.DirectoryListing[i].FileName);
    end;

cuando hago:

memlista.lines.add(ftp.RetrieveCurrentDir);

Muestra el directorio correcto.

Pero por alguna razón FTP.DirectoryListing.Count-1 es cero.

Sin embargo en esa carpeta hay un montón de archivos..