[DeOne]

Вот, очень просто код

Код:

if SelectDirectory('Выберите каталог', 'C,D:\', chosenDirectory)
  then sEdit2.text:=chosenDirectory +'\';

Но как теперь загрузить имена файлов? Буду благодарен, если дашь готовый код