Delphi - ¿Cómo Borrar archivos sin importar atributos?

Hola, cómo están? Bueno, yo uso Delphi 2006 y quisiera saber como puedo borrar todos los archivos de un mismo tipo de una carpeta pero sin incluir subcarpetas, o sea, solo los de raíz... pero.... al mismo tiempo quitarle los atributos (si es que los tiene) como Oculto, Sistema, Solo Lectura, etc.... para que se puedan borrar (solo si es necesario).

Por ejemplo... tengo mi disco D: y quiero borrar todos los archivos .AVI pero que solo los borre de la raiz y que no empiece a borrar de las subcarpetas (o sea, D:\Videos\, D:\Videos\Más\ etc...)

Ah! pero también quiero que en caso que no encuentre ningún archivo para borrar no mande algún error o excepción...... ni cuando no se pueda borrar (pero bueno, no quiero que pase esto).

Bueno, espero me puedan ayudar.

Espero su despuesta. Gracias :)

Para recorrer un directorio se usan las funciones FindFirst, FindNext y FindClose. En la ayuda hay un ejemplo mucho más claro del que puedo poner yo, así mirala que vas a entender.

Para los atributos creo que era SetFileAttributes... Pero realmente no estoy seguro de esto.

Bueno... no soy experto en delphi y pues no le entendí a la ayuda de Delphi jeje! a ver si alguien me puede ayudar con un código :P jejee

Gracias