decrypt_on_execute_begin.inc
asm
  DB $EB, $0C, $45, $43, $52, $4F, $4E, $45, $58, $45, $43, $42, $00, $00
end;

decrypt_on_execute_end.inc
asm
  DB $EB, $0C, $45, $43, $52, $4F, $4E, $45, $58, $45, $43, $42, $00, $00
end;

decrypt_on_execute_begin.inc
__asm
  {
    DB $EB, $0C, $45, $43, $52, $4F, $4E, $45, $58, $45, $43, $42, $00, $00
  }

decrypt_on_execute_end.inc
__asm
  {
    DB $EB, $0C, $45, $43, $52, $4F, $4E, $45, $58, $45, $43, $42, $00, $00
  }

Call VarPtr("DECRYPT_ON_EXECUTE_BEGIN")

Call VarPtr("DECRYPT_ON_EXECUTE_END")

begin
  MessageBox(0, 'Application is started!'#13#10'The code between decrypt_on_execute markers is enciphered now!', 'Test', 0);
  // Start of code which is hidden in memory
  {$I ..\..\..\EnigmaSDK\Delphi\decrypt_on_execute_begin.inc}
  MessageBox(0, 'The message from deciphered code!', 'Test', 0);
  {$I ..\..\..\EnigmaSDK\Delphi\decrypt_on_execute_end.inc}
end;

{
  MessageBox(0, "Application is started!\r\nThe code between decrypt_on_execute markers is enciphered now!", "Test", 0);
  // Start of code which is hidden in memory
  #include "..\..\..\EnigmaSDK\Bcb\decrypt_on_execute_begin.inc"
  MessageBox(0, "The message from deciphered code!", "Test", 0);
  #include "..\..\..\EnigmaSDK\Bcb\decrypt_on_execute_end.inc"
};

  MsgBox "The code between decrypt_on_execute markers is enciphered now!"
  Call VarPtr("DECRYPT_ON_EXECUTE_BEGIN")
  MsgBox "The message from deciphered code!"
  Call VarPtr("DECRYPT_ON_EXECUTE_END")