run_once_begin.inc
asm
  DB $EB, $08, $72, $75, $6E, $6F, $6E, $63, $65, $42
end;

run_once_end.inc
asm
  DB $EB, $08, $72, $75, $6E, $6F, $6E, $63, $65, $45
end;

run_once_begin.inc
__asm
  {
    DB 0xEB, 0x08, 0x72, 0x75, 0x6E, 0x6F, 0x6E, 0x63, 0x65, 0x42
  }

run_once_end.inc
__asm
  {
    DB 0xEB, 0x08, 0x72, 0x75, 0x6E, 0x6F, 0x6E, 0x63, 0x65, 0x45
  }

Call VarPtr("RUN_ONCE_BEGIN")

Call VarPtr("RUN_ONCE_END")

begin
  {$I ..\..\..\EnigmaSDK\Delphi\run_once_begin.inc}
  // This message will be shown only once per execution
  ShowMessage('This message is under RunOnce marker');
  {$I ..\..\..\EnigmaSDK\Delphi\run_once_end.inc}
end;