diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index 53bec2fe0a..adce1f2b17 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -501,7 +501,7 @@ begin
       begin
         try
           if win.isKindOfClass_(TCocoaWindow) then begin
-            wnd := TCocoaWindow(self.keyWindow);
+            wnd := TCocoaWindow(win);
             wnd._keyEvCallback := cb;
             wnd._calledKeyEvAfter := False;
           end