Código:
void TDMDatos::Grabar(){
TTransactionDesc TTD;
TTD.TransactionID = Random(10000) + 1;
TTD.IsolationLevel = Dbxpress::xilREADCOMMITTED;
SQLConn->StartTransaction(TTD);
try {
SQLConn->Commit(TTD);
} catch(Exception&) {
SQLConn->Rollback(TTD);
throw;
}
}