Fórum Apagar arquivos nas pastas #404574

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?