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;