From dfb54acdaee963102b589994c216172d1f85d911 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 30 Jul 2025 23:01:22 +0200
Subject: [PATCH] Win32: fix WM_QUIT message causes an infinite loop. Patch by
 Michalgw. Issue #41608.

---
 lcl/interfaces/win32/win32object.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 8229dcbe21..e474ab36d5 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -405,8 +405,9 @@ begin
       begin
         if AMessage.message = WM_QUIT then
         begin
-          PostQuitMessage(AMessage.wParam);
-          break;
+          ExitCode := AMessage.wParam;
+          Application.Terminate;
+          Exit;
         end;
         // Handle MDI form accelerators
         if Assigned(Application) and