check_protection_begin.inc
asm
  DB $EB, $08, $43, $48, $43, $4B, $50, $52, $54, $42
end;

check_protection_end.inc
asm
  DB $EB, $08, $43, $48, $43, $4B, $50, $52, $54, $45
end;

check_protection_begin.inc
__asm
  {
    DB 0xEB, 0x08, 0x43, 0x48, 0x43, 0x4B, 0x50, 0x52, 0x54, 0x42
  }

check_protection_end.inc
__asm
  {
    DB 0xEB, 0x08, 0x43, 0x48, 0x43, 0x4B, 0x50, 0x52, 0x54, 0x45
  }

Call VarPtr("CHECK_PROTECTION_BEGIN")

Call VarPtr("CHECK_PROTECTION_END")

begin
  {$I ..\..\..\EnigmaSDK\Delphi\check_protection_begin.inc}
  // This message will not be shown if protection is corrupted
  MessageBox(0, 'The protection is OK!', 'Application!', 0);
  {$I ..\..\..\EnigmaSDK\Delphi\check_protection_end.inc}
  // This message will be always shown
  MessageBox(0, 'If you did not see any message before then protection is corrupted!', 'Application', 0);
end;

  Call VarPtr("CHECK_PROTECTION_BEGIN")
  MsgBox "This message box is shown inside Check Protection marker! The protection is OK!"
  Call VarPtr("CHECK_PROTECTION_END")