unprotected_begin.inc
asm
  DB $EB, $08, $55, $4E, $50, $52, $4F, $54, $42, $00
end;

unprotected_end.inc
asm
  DB $EB, $08, $55, $4E, $50, $52, $4F, $54, $45, $00
end;

unprotected_begin.inc
__asm
  {
    DB 0xEB, 0x08, 0x55, 0x4E, 0x50, 0x52, 0x4F, 0x54, 0x42, 0x00
  }

unprotected_end.inc
__asm
  {
    DB 0xEB, 0x08, 0x55, 0x4E, 0x50, 0x52, 0x4F, 0x54, 0x45, 0x00
  }

Call VarPtr("UNPROTECTED_BEGIN")

Call VarPtr("UNPROTECTED_END")

begin
  {$I ..\..\..\EnigmaSDK\Delphi\unprotected_begin.inc}
  // This message will occur only in unprotected version of module
  MessageBox(0, 'If you are seeing this message then the module is not protected!', 'Application', 0);
  {$I ..\..\..\EnigmaSDK\Delphi\unprotected_end.inc}
  // This message will always occur
  MessageBox(0, 'If you did not see any messages then the module is protected!', 'Application', 0);
end;

  Call VarPtr("UNPROTECTED_BEGIN")
  MsgBox "Application is NOT protected!"
  Call VarPtr("UNPROTECTED_END")
  MsgBox "If you did not see any message then application is protected!"