Eliminar archivos segun su extension

[Khronos]

Código Delphi [-]
procedure Buscar(const directory, mask: string; atributos: integer);
var
    regBusqueda: TSearchRec;
  begin
    if FindFirst(directory + mask, atributos,regBusqueda) = 0 then
    begin
      try
          while FindNext(regBusqueda)= 0 do begin
             if (regBusqueda.Attr and faDirectory = 0)
            or (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                     //Aqui hacemos lo que queramos..
                     DeleteFile(pchar(Directory + regBusqueda.name));
          end;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
    if FindFirst(directory + '*', atributos
      or faDirectory, regBusqueda) = 0 then
    begin
      try
        while FindNext(regBusqueda) = 0 do begin
          if ((regBusqueda.Attr and faDirectory) <> 0)
            and (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                Buscar(directory + regBusqueda.Name + '\', Mask, atributos);
        end;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
  end;

Ten cuidado con esta funcion, no vayas a llevar un disgusto

Salu2