Try
Form1.ADOConnection1.BeginTrans;
.
.
// Утверждаем изменения
if Form1.ADOConnection1.InTransaction=true then Showmessage('Есть транзакция');
Form1.ADOConnection1.CommitTrans;
except
// Отмена изменений
.
Form1.ADOConnection1.RollbackTrans;
exit;

Вылетает окно "'Есть транзакция", но сразу после его закрытия - "Попытка занесения или свертывания транзакции без предварительного начала транзакции"
Но транзакция идет что и подтверждает InTransaction=true прямо перед CommitTrans

Ms.Jet.4, база mdb, Delphi6