reg_crypt_beginXX.inc
asm
  DB $EB, $08, $52, $47, $43, $52, $42, $XX, $00, $00
end;

reg_crypt_endXX.inc
asm
  DB $EB, $08, $52, $47, $43, $52, $45, $XX, $00, $00
end;

reg_crypt_beginXX.inc
__asm
  {
    DB 0xEB, 0x08, 0x52, 0x47, 0x43, 0x52, 0x42, 0xXX, 0x00, 0x00
  }

reg_crypt_endXX.inc
__asm
  {
    DB 0xEB, 0x08, 0x52, 0x47, 0x43, 0x52, 0x45, 0xXX, 0x00, 0x00
  }

Call VarPtr("REG_CRYPT_BEGINXX")

Call VarPtr("REG_CRYPT_ENDXX")

uses enigma_ide; // Use the Enigma API module to call EP_RegLoadAndCheckKey function

type
  TRegType = (rtUnregistered, rtSingle, rtSite, rtCompany, rtPrivate); // user-defined type of type of module registration

function GetRegistrationType : TRegType; // function returns the type of module registration
begin

  Result := rtUnregistered; // module is Unregistered

  {$I include\reg_crypt_begin1.inc} // begin marker of reg_crypt1 pair
  if EP_RegLoadAndCheckKey then // check validity of registration key
  begin
    Result := rtSingle; // module has Single license
    Exit; // exit from subroutine
  end;
  {$I include\reg_crypt_end1.inc} // end marker of reg_crypt1 pair

  {$I include\reg_crypt_begin2.inc} // begin marker of reg_crypt2 pair
  if EP_RegLoadAndCheckKey then // check validity of registration key
  begin
    Result := rtSite; // module has Site license
    Exit; // exit from subroutine
  end;
  {$I include\reg_crypt_end2.inc} // end marker of reg_crypt2 pair

  {$I include\reg_crypt_begin3.inc} // begin marker of reg_crypt3 pair
  if EP_RegLoadAndCheckKey then // check validity of registration key
  begin
    Result := rtCompany; // module has Company license
    Exit; // exit from subroutine
  end;
  {$I include\reg_crypt_end3.inc} // end marker of reg_crypt3 pair

  {$I include\reg_crypt_begin4.inc} // begin marker of reg_crypt4 pair
  if EP_RegLoadAndCheckKey then // check validity of registration key
  begin
    Result := rtPrivate; // module has Private license
    Exit; // exit from subroutine
  end;
  {$I include\reg_crypt_end4.inc} // end marker of reg_crypt4 pair

end;

// Enigma API respondence ---------------------------------------------------
#include "include/enigma_api.h"
#pragma link "include/enigma_ide.lib"
// --------------------------------------------------------------------------

// user-defined constants of module type registration
#define rtUnregistered  0
#define rtSingle        1
#define rtSite          2
#define rtCompany       3
#define rtPrivate       4
//---------------------------------------------------------------------------

int GetRegistrationType () { // function returns the type of module registration

  #include "include\reg_crypt_begin1.inc" // begin marker of reg_crypt1 pair
  if (EP_RegLoadAndCheckKey()){
    return rtSingle; // module has Single license
  };
  #include "include\reg_crypt_end1.inc" // end marker of reg_crypt1 pair

  #include "include\reg_crypt_begin2.inc" // begin marker of reg_crypt2 pair
  if (EP_RegLoadAndCheckKey()){
    return rtSite; // module has Site license
  };
  #include "include\reg_crypt_end2.inc" // end marker of reg_crypt2 pair

  #include "include\reg_crypt_begin3.inc" // begin marker of reg_crypt3 pair
  if (EP_RegLoadAndCheckKey()){
    return rtCompany; // module has Company license
  };
  #include "include\reg_crypt_end3.inc" // end marker of reg_crypt3 pair

  #include "include\reg_crypt_begin4.inc" // begin marker of reg_crypt4 pair
  if (EP_RegLoadAndCheckKey()){
    return rtPrivate; // module has Private license
  };
  #include "include\reg_crypt_end4.inc" // end marker of reg_crypt4 pair

  return rtUnregistered; // module is Unregistered
};

  Call VarPtr("REG_CRYPT_BEGIN1")
  MsgBox "Section #1 is unlocked by key!"
  Call VarPtr("REG_CRYPT_END1")
  Call VarPtr("REG_CRYPT_BEGIN2")
  MsgBox "Section #2 is unlocked by key!"
  Call VarPtr("REG_CRYPT_END2")
  Call VarPtr("REG_CRYPT_BEGIN3")
  MsgBox "Section #3 is unlocked by key!"
  Call VarPtr("REG_CRYPT_END3")
  Call VarPtr("REG_CRYPT_BEGIN4")
  MsgBox "Section #4 is unlocked by key!"
  Call VarPtr("REG_CRYPT_END4")
  Call VarPtr("REG_CRYPT_BEGIN5")
  MsgBox "Section #5 is unlocked by key!"
  Call VarPtr("REG_CRYPT_END5")
  MsgBox "If you did not see any message then this application is not registered or key does not unlock any section!"