Delphi - Borrar archivos

Hola! espero me puedan ayudar.... Cómo puedo borrar rápidamente todos los archivos de una carpeta (pero sin incluir subcarpetas) aunque sean de solo lectura, de sistema u ocultos y que no pregunte o mande errores de que no se puede borrar el archivo? Estaba leyendo que debo usar DeleteFile, pero lo se hacerle para incluir todos los archivos (*.*) ni que no borre de subcarpetas... Espero me ayuden. Gracias :-)

Tendrás que llamar a DeleteFile dentro de un bucle. Utiliza un TSearchRec, consulta la ayuda, allí hay un ejemplo que te servirá.