diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index d321d37f2a..1b0aaa1e14 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1120,7 +1120,7 @@ begin
         lWinControl := GetWindowInfo(HWND(LParam))^.WinControl;
         // buddy controls use 'awincontrol' to designate associated wincontrol
         if lWinControl = nil then
-          lWinControl := GetWindowInfo(LParam)^.AWinControl;
+          lWinControl := GetWindowInfo(HWND(LParam))^.AWinControl;
         if lWinControl is TCustomButton then
           case HIWORD(WParam) of
             BN_CLICKED:   LMessage.Msg := LM_CLICKED;