diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index bb4a1a8a38..9901845c57 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -2064,6 +2064,9 @@ begin
     WM_SYSCOMMAND:
     begin
       HandleSysCommand;
+      LMessage.Msg := Msg;
+      LMessage.WParam := WParam;
+      LMessage.LParam := LParam;
     end;
     WM_SYSKEYDOWN:
     begin