Aunque ya veo que tienes la solución, ańado este link, por si alguien más necesita algo similar.
Listar los archivos de un determinado directorio:
https://www.clubdelphi.com/foros/showthread.php?t=80413
Se trata de un mensaje en la sección de trucos (de hace ya un tiempo), que permite obtener todos los nombres de ficheros de una determinada carpeta utilizando una máscara; Además hay una versión recursiva para navegar por subcarpetas.
La salida es a un
TStrings. Con un
SaveToFile bastaría para guardarla en fichero.