DeleFile no funciona

[Paulao]

Tengo una funcion para deletar un archivo. Ella es llamada en el momento en que si lo hace la busqueda(FindFirst), la llamo asi:
Apaga(SR.Name). Mi funcion es esta

Código Delphi [-]
function Apaga(Texto: String): boolean;
var
  posicao: Integer;
begin
  posicao := Pos('CLASS',texto);
  if posicao > 0 then
    Result := DeleteFile(texto);
end;