Listar o path de todas as SubPastas em um TStringList

Gostaria de Saber como Listar o path de todas as SubPastas
de uma Pasta escolhida por mim, dentro de um TstringList.

Proposito:

Estou desenvolvendo um programa no qual o usuario escolhe um pasta e ele varre todos os arquivo em busca dos que tem a data de criação maior que 15 dias e os deleta, já consegui fazer isso para as primeiras subpastas mais quando as subpastas tem mais de um nivel eu não tenho como verificar os ultimos niveis.