Controle de transação delphi 2009

Para quem está migrando uma aplicação de versões anteriores do delphi que possua controle de transação no delphi e esteja dando erro insira na uses a unit SqlExpr para não preciar alterar seu código, caso contrario, para utilizar o controle de transação no delphi 2009 a unit DBXCommon deve estar declarada na uses.

unit unit1

interface

uses DBXCommon......

procedure TForm1.Button1Click(Sender: TObject);
var
lTD : TDBXTransaction;
begin

try
lTD := conexao.BeginTransaction;


// Insira seu codigo de manipulação de dados com banco aqui


conexao.CommitFreeAndNil(lTD); //Se chegou aqui é porque não ocorreu nenhum erro na operação, então, aplica as alterações no banco de dados
except
on E:EXCEPTION do
begin
//Caso ocorra algum erro, então, desfaz todas as operações feitas no banco de dados
conexao.RollbackFreeAndNil(lTD);
messageDlg(e.message,mtError,[mbOK],0);
end;
end;
end;