TStartTransactionTriggerEvent = procedure (Sender: TObject; TriggerSession: TDBISAMSession; TriggerDatabase: TDBISAMDatabase; Tables: TStrings) of object