Puedes revisar el
truco 310 del club delphi;
Se trata de borrar el contenido de un directorio completo; El código es casi exacto al que tú necesitas, con la salvedad de que tú en lugar de
borrar debes contar. También debes "eliminar" la llamada recursiva, que creo que en tu caso no es necesaria.