Exit programs automatically by System unit

RTL/System.pas

@@ -29,6 +29,7 @@ type
     DLLInitState: byte;
   end;
 
+procedure _Halt0;
 procedure _HandleFinally;
 
 implementation
@@ -36,6 +37,13 @@ implementation
 uses
   SysInit;
 
+procedure _Halt0;
+asm
+        XOR EAX, EAX
+        DEC EAX
+        INT $40
+end;
+
 procedure _HandleFinally;
 asm
 end;