También te puede servir (y el código debe ser similar al que ya te han puesto) los trucos 310 y 333 se la sección de trucos del Club Delphi. Ambos sirven para borrar directorios (y todo su contenido); Para ello hacen un recorrido buscando directorios y ficheros dentro de un directorio para luego borrarlos.
El algoritmo es muy similar al tuyo (eliminando la línea de borrar, claro...) así que tal vez te pueda servir de guía.
|