[Urano]

con el comando list
En indy es:
idFTP1.List(Dir)
donde dir es tStringList

  For I := 1 to Config.Count - 1 Do
 	Memo1.Lines.Append(Config.Strings[i]);
  Dir := tStringList.Create;
  If Not idFTP1.Connected Then Begin
   Memo1.Lines.Append('Conectando con host...');
   idFTP1.Host := Config.Values['Host'];
   idFTP1.Username := Config.Values['User'];
   idFTP1.Password := Config.Values['Password'];
   idFTP1.Connect;
  End;
  If idFTP1.Connected Then Begin
   idFTP1.TransferType := ftBinary;
   Memo1.Lines.Append('buscando directorio de datos...');
   idFTP1.ChangeDir('/grupopatmar.com/data');
   Memo1.Lines.Append('obteniendo info...');
   idFTP1.List(Dir);
   Memo1.Lines.Append('Directorio...');
   For I := 0 to Dir.Count - 1 Do Begin
    Memo1.Lines.Append(Dir.Strings[i]);
   End;