TCachedUpdateErrorEvent = procedure (Sender: TObject; CurrentRecord: TDBISAMRecord; E: Exception; UpdateType: TUpdateType; var Action: TUpdateAction) of object