Changing a menu font

To change a menu font, you must forget using Delphi's menu designer.
You must create the menu items using Api function AppendMenu, with flag
MF_OWNERDRAW, in the Form's OnCreate Event. Then you must use WM_MEASUREITEM
and WM_DRAWITEM to draw your menu options. Download
an example.