Delphi Seattle tiene una fuente muy grande por defecto, y no me gusta.

Traté de cambiarlo como hice con XE8 con un script

    Windows Registry Editor Version 5.00
    [HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\ModernTheme]

     "FontName"="Segoe UI"

     "FontSize"=dword:0000000a

     "MainToolBarColor"="clGradientActiveCaption"

Pero no funcionó, ¿cómo se maneja esto en Delphi Seattle?