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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7