[Страдалецъ]

Ну я же уже сделал предположение. Попробуйте для начала просто закоментить

Код:

 
ADOConnection1.BeginTrans;
и
ADOConnection1.CommitTrans;