TErrorEvent = procedure (Sender: TObject; ErrorSession: TDBISAMSession; ErrorDatabase: TDBISAMDatabase; const TableName: String; CurrentRecord: TDBISAMRecord; E: Exception; var Action: TDataAction) of object