[Uniq!]

Вот здесь:
не хватает DataModule1.IBQuery9.ExeSQL

Код:

// <<==
ExecSQL;
Transaction.Commit;
Transaction.Active:=false;