Foros Club Delphi - Cliente ftp delphi 7

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

Código:

  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;