Можно подумать, что для MainMenu будет свойство Font, поскольку оно есть для всего остального, например. Кнопки, метки и т. Д.
Напишите, например,
procedure TForm2.FormCreate(Sender: TObject); begin Screen.MenuFont.Name := 'Arial Black'; end;
и убедитесь, что свойство OwnerDraw вашего TMainMenu установлено на true.
OwnerDraw
TMainMenu
true
Посмотрите на свойство TScreen.MenuFont.