diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 4b4d78d4a9..bc075d3acf 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -488,7 +488,7 @@ begin
   AMenu := AMenuObject as TMenu;
   if AMenu is TMainMenu then
   begin
-    AWinControl := TWinControl(AMenu.Owner);
+    AWinControl := TWinControl(AMenu.Parent);
     Windows.SetMenu(AWinControl.Handle, AMenu.Handle);
     //Set the right order menu after attach the menu
     SetMenuFlag(AMenu.Handle, MFT_RIGHTORDER or MFT_RIGHTJUSTIFY, AMenu.IsRightToLeft);