Si no recuerdo mal, el truco número 15 lista todos los ficheros de un directorio hacia un TStrings, a partir de la ruta del directorio.
Basta con que a cada línea le apliques un ExtractFileName para desechar el path y quedarte sólo con el nombre y luego hacer un Add para añadilo al combo.
No se si me expliqué bien...