typedef void __fastcall (__closure
      *TRecordLockTriggerEvent)(System::TObject* Sender,
      TDBISAMSession* TriggerSession, TDBISAMDatabase* TriggerDatabase,
       const System::UnicodeString TableName, int RecordNumber)