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..