Exit programs automatically by System unit

Examples/ColorButtons/ColorButtons.dpr

@@ -52,7 +52,7 @@ begin
           BLACK_BUTTON:
             SetWindowCaption('Black');
           1:
-            TerminateThread;
+            Break;
         end;
     end;
 end.

Examples/DateTime/DateTime.dpr

@@ -50,5 +50,4 @@ begin
   until KBHit;
 
   ConsoleExit(1);
-  TerminateThread;
 end.

Examples/DrawImage/DrawImage.dpr

@@ -90,6 +90,6 @@ begin
         GetKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/DrawImageEx/DrawImageEx.dpr

@@ -148,6 +148,6 @@ begin
         GetKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/DrawText/DrawText.dpr

@@ -43,6 +43,6 @@ begin
         end;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/GetCurrentDir/GetCurrentDir.dpr

@@ -32,5 +32,4 @@ begin
   printf('CurrentDirectory is "%s"'#10, Buffer);
 
   ConsoleExit(0);
-  TerminateThread;
 end.

Examples/GetPixel/GetPixel.dpr

@@ -53,6 +53,6 @@ begin
         end;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/GetPointOwner/GetPointOwner.dpr

@@ -57,7 +57,7 @@ begin
         end;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
       NO_EVENT:
         UpdateInfo;
     end;

Examples/Hello/Hello.dpr

@@ -28,6 +28,6 @@ begin
         GetKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/LoadFile/LoadFile.dpr

@@ -24,5 +24,4 @@ begin
   WriteN(Buffer, FileSize);
 
   ConsoleExit(0);
-  TerminateThread;
 end.

Examples/ReadFolder/ReadFolder.dpr

@@ -65,5 +65,4 @@ begin
   end;
 
   ConsoleExit(0);
-  TerminateThread;
 end.

Examples/Screenshot/Screenshot.dpr

@@ -90,6 +90,6 @@ begin
         GetKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/SetCursor/SetCursor.dpr

@@ -130,7 +130,7 @@ begin
           WAIT_BUTTON:
             SetCursor(hWaitCursor);
           1:
-            TerminateThread;
+            Break;
         end;
     end;
 end.

Examples/SetPixel/SetPixel.dpr

@@ -46,6 +46,6 @@ begin
         GetKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

Examples/SetWindowPos/SetWindowPos.dpr

@@ -79,6 +79,6 @@ begin
         OnKey;
       BUTTON_EVENT:
         if GetButton.ID = 1 then
-          TerminateThread;
+          Break;
     end;
 end.

RTL/SysInit.pas

@@ -7,8 +7,6 @@ unit SysInit;
 interface
 
 procedure _InitExe;
-procedure _Halt0;
-procedure _InitLib(Context: PInitContext);
 
 var
   ModuleIsLib: Boolean;
@@ -20,16 +18,8 @@ const
 
 implementation
 
-procedure _InitLib(context: pinitcontext);
-asm
-end;
-
 procedure _InitExe;
 asm
 end;
 
-procedure _Halt0;
+end.
-asm
-end;
-
-end.

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;