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