Apagar arquivos nas pastas

Bem, em um determinado processo em software, ele vários tipos de arquivos. Preciso de uma rotina, que ele venha apagando um único tipo de arquivo. Fiz uma função assim:
function Apaga(texto: string): boolean;
var
  posicao: integer;
begin
  posicao := Pos('CLASS',texto);
  if posicao > 0 then
    Result := DeleteFile(texto);
end;
Eu chamo essa função, no momento da minha busca(FindFirst), quando o SR.Name coincidir com o texto, eu deleto esse arquivo. Como faço para apagar esses caras indesejados?