¿Existe una manera rápida y efectiva de aplicar una fuente global para ser utilizada en un proyecto?

Con esto quiero decir que me gustaría establecer un nombre de fuente específico que usarán todos los controles de mi proyecto, comoTButton, TEdit, TLabel etc.

Normalmente, la configuración de la Fuente para el Formulario en lugar de un control específico cambiará todos los controles en ese Formulario a la Fuente especificada.

Sin embargo, hay un pequeño problema con esto, si ha cambiado manualmente una Fuente en un control específico, entonces la configuración de la Fuente en el Formulario ya no actualizará los controles que previamente se han cambiado manualmente.

Idea 1

Estaba pensando en usar un bucle For e iterar a través de cada componente en mis Formularios y configurar la Fuente de esta manera, como por ejemplo:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with TForm(Self) do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TButton then
      begin
        TButton(Components[i]).Font.Name  := 'MS Sans Serif';
        TButton(Components[i]).Font.Size  := 8;
        TButton(Components[i]).Font.Style := [fsBold];
      end;

      if Components[i] is TLabel then
      begin
        TLabel(Components[i]).Font.Name  := 'MS Sans Serif';
        TLabel(Components[i]).Font.Size  := 8;
        TLabel(Components[i]).Font.Style := [fsBold];
      end;
    end;
  end;
end;

Pero hacer esto parece muy complicado, también será una cantidad considerable de código para una tarea simple.

Idea 2

Sé que podría cambiar manualmente las fuentes en el momento del diseño una por una para cada control, pero con varias formas para hacerlo podría llevar tiempo e incluso entonces podría perder un control.

Idea 3

Similar a la Idea 2, otra forma podría ser ver el formulario como texto (DFM) y buscar y reemplazar la fuente de esa manera.

Básicamente, voy por la coherencia dentro de mi aplicación, y tener una fuente utilizada en todo es lo que buscaba.

¿Me estoy perdiendo algo completamente obvio aquí, es lo que estoy tratando de hacer por una tarea semejante?