How can I change the fontsize of the mainmenu items in Delphi?

Question

One would think that there would be a Font property for MainMenu, since there is one for just about everything else e.g. Buttons, Labels, etc.

Answer 1

Write, for instance,

procedure TForm2.FormCreate(Sender: TObject);
begin
  Screen.MenuFont.Name := 'Arial Black';
end;

and make sure that the OwnerDraw property of your TMainMenu is set to true.

Answer 2

Look at the TScreen.MenuFont property.