Tópico: Set Transaction isolation level serializable

Prezados amigos delphianos
Boa Noite

Tenho um sistema e utilizo um banco de dados em sql server  e tento executar a intrução através de uma clase desenvolvida por mim sendo que não estou conseguindo alcançar o objetivo. o que acontece,

Criei uma query em tempo de execução;

FQry:Tquery;

Procedure x(Tabela:string);

  FQry := Tquery.create(nil);
  if fqry.active then
    fqry.close;
  fqry.sql.clear;
  fqry.sql.add = 'BEGIN TRANSACTION %S'+
                       #10'TRANSACTION ISOLATION LEVEL SERIALIZABLE'+
                       #10'SELECT *  FROM %S';
  fqry.execsql;

O que acontece a instrução executa, no exemplo deveria bloquear passo no momento de chamar o procedimento no meu coringa a TB_PRODUTOS.

Então neste exato momento a tabela de produtos não poderia mais aceitar posts e nem apply.

e ela esta aceitando.
Alguém sabe me informar como eu faço para solucionar este problema?

Desde Já Agradeço

Um ótimo dia
att : Leonardo Coelho Borges