diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 2657a9f476..30533e4b4b 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -458,7 +458,7 @@ begin
   MenuInfo.fMask := MIIM_DATA;
 
   if ByPosition then
-    Menu := LParam
+    Menu := HMENU(LParam)
   else
     Menu := GetMenu(Window);
   if GetMenuItemInfo(Menu, LOWORD(Integer(WParam)), ByPosition, @MenuInfo) then