diff --git a/lcl/interfaces/cocoa/cocoatextedits.pas b/lcl/interfaces/cocoa/cocoatextedits.pas
index 99dd74e482..fb75496c63 100644
--- a/lcl/interfaces/cocoa/cocoatextedits.pas
+++ b/lcl/interfaces/cocoa/cocoatextedits.pas
@@ -113,7 +113,6 @@ type
 
     procedure dealloc; override;
     function acceptsFirstResponder: LCLObjCBoolean; override;
-    function canBecomeKeyView: Boolean; override;
     function undoManager: NSUndoManager; override;
     function lclGetCallback: ICommonCallback; override;
     procedure lclClearCallback; override;
@@ -1001,11 +1000,6 @@ begin
   Result := not preventInput;
 end;
 
-function TCocoaTextView.canBecomeKeyView: Boolean;
-begin
-  Result := not preventInput;
-end;
-
 function TCocoaTextView.undoManager: NSUndoManager;
 begin
   if allowsUndo then