typedef void __fastcall (__closure *TErrorEvent)(System::TObject* Sender, TDBISAMSession* ErrorSession, TDBISAMDatabase* ErrorDatabase, const AnsiString TableName, TDBISAMRecord* CurrentRecord, Sysutils::Exception* E, Db::TDataAction &Action)