[Keygenmusic]

ниже path - путь к папке. вместо *.* любая маска. имена файлов добавляються в комбобокс1.

Код:

 if FindFirst(path+'*.*', faAnyFile, fs)=0 then
   repeat
      ComboBox1.AddItem(fs.Name,nil);
   until FindNext(fs)<>0;
   FindClose(fs);