diff --git a/lcl/interfaces/cocoa/cocoawsmenus.pas b/lcl/interfaces/cocoa/cocoawsmenus.pas
index 783e933980..ed409f6f35 100644
--- a/lcl/interfaces/cocoa/cocoawsmenus.pas
+++ b/lcl/interfaces/cocoa/cocoawsmenus.pas
@@ -811,13 +811,6 @@ end;
 
 { TCocoaWSPopupMenu }
 
-function LCLCoordsToCocoa(AControl: TControl; X, Y: Integer): NSPoint;
-begin
-  Result.x := X;
-  Result.y := NSScreen.mainScreen.frame.size.height - Y;
-  if AControl <> nil then Result.y := Result.y - AControl.Height;
-end;
-
 {------------------------------------------------------------------------------
   Method:  TCocoaWSPopupMenu.Popup
   Params:  APopupMenu - LCL popup menu