TRecordLockTriggerEvent = procedure (Sender: TObject; TriggerSession: TDBISAMSession; TriggerDatabase: TDBISAMDatabase; const TableName: String; RecordNumber: Integer) of object