Transacciones en Oracle9i y Delphi 6

[[kuan-yiu]]

Pues yo lo uso así. A ver si te sirve

Código Delphi [-]
  try
    database1.starttransaction;
{
 Aquí realizas el update o insert o lo que sea.
}
    database1.commit;
  except
    On E: Exception do
      begin
        database1.rollback;
        ShowMessage('Error:' + chr(13) + E.Message);
        exit;
      end;
  end;