Necesito ayuda en programación

[Casper1]

Gracias Lepe, había pensado en eso pero por el momento que estoy en la implementación lo tengo en inicio.

Este es mi código (o parte de él)

procedure TForm1.Button2Click(Sender: TObject);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst('C:\Archivos a borrar\*.*', FaAnyfile, DirInfo); /para buscar el archivo

......

if r= 0 then DeleteFile(pChar('C:\Archivos a borrar\*.avi')) / borro los archivos avi

.....

end;
end.

no es el código completo porque le he hecho varias versiones, pero estas son las principales líneas que hacen parte de lo que quiero, pero en la línea de borrar el archivo los borra todos, lo que quiero es que en lugar de borrar todos los que tienen esa extensión sean borrados uno a uno cuando se inicie Windows.