DbExpress 4 (Compatibilizar seu programa para dbexpress 4)

//No uses//
 DBXCommon

//No evento//  
var
      Conexao : TSQLConnection;
      Transacao : TDBXTransaction;
begin
   try
       Transacao := Conexao.BeginTransaction(TDBXIsolations.ReadCommitted);

       // Seu código fonte...
     
       Conexao.CommitFreeAndNil(Transacao);
   except
       Conexao.RollBackFreeAndNil(Transacao);
   end;
end;