Hola, Como se haría esto?

[rgstuamigo]

Ahora si la quieres más facil puedes usar el componente TFileListBox(Pestaña Win 3.1 de la paleta de componentes ) y configurar la máscara para que automáticamente lea los archivos de música (sin codificar nada), sólo debes indicarles los paths(separado por punto y coma ";" entre cada Path) en su propiedad Mask para que automaticamente te muestre los archivos en los item del TFileListBox, por ejemplo la propiedad Mask del FileListBox podría ser así:

Código Delphi [-]
Mask = C:\MyMúsica\*.wma;D:\OtrasMúsicas\*.mp3

Con esa máscaras lo que estamos haciendo es mostrar en nuestro componente TFileListBox todos los nombres de los archivos que estan en C:\MyMúsica que tienen la extensión .wma y todos los archivos que estan en D:\OtrasMúsicas que tienen la extensión .mp3.
Espero que se haya entendido.
Saludos...