diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 068365b3e5..8e21a00883 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -1502,9 +1502,9 @@ var
 const
   lAlignment: array[TPopupAlignment, Boolean] of DWORD = (
               { left-to-rght } { right-to-left }
- { paLeft   } (TPM_LEFTALIGN,   TPM_RIGHTALIGN),
- { paRight  } (TPM_RIGHTALIGN,  TPM_LEFTALIGN),
- { paCenter } (TPM_CENTERALIGN, TPM_CENTERALIGN)
+ { paLeft   } (TPM_LEFTALIGN,   TPM_RIGHTALIGN  or TPM_LAYOUTRTL),
+ { paRight  } (TPM_RIGHTALIGN,  TPM_LEFTALIGN   or TPM_LAYOUTRTL),
+ { paCenter } (TPM_CENTERALIGN, TPM_CENTERALIGN or TPM_LAYOUTRTL)
   );
   lTrackButtons: array[TTrackButton] of DWORD = (
  { tbRightButton } TPM_RIGHTBUTTON,