Bloqueo de tablas en MS Sql Server

[[oscarac]]

encontre este ejemplo en una web, me gustaria saber sus comentarios

Código Delphi [-]
va Level: integer;
begin
Level:= Conexion.BeginTrans;  
try
// Hacer Algo.. con las tablas.. Actualizar, Adicionar, Eliminar
   Conexion.CommitTrans;  
except 
    on E:Exception do Conexion.RollbackTrans;  
end//try
end;