[marcoszorrilla]

Con esta función cambias las fuentes de todos los formularios de la aplicación, mira a ver si por este camino logras algo:

Function SetCaptionFont(FontName : String) : boolean;
 Type
 con = array[0..31] of char;
 Var
 NCM		 : TNONCLIENTMETRICS;
 begin
 Result	 := false;
 ncm.cbSize := SizeOF(ncm);
 //Get old NCM
 IF SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.cbSize,  @ncm, 0) then
 begin
  //Set new FontName
  Move(PChar(FontName)[0], ncm.lfCaptionFont.lfFaceName[0], SizeOf(ncm.lfCaptionFont.lfFaceName));
 
  //Set new NCM
  IF SystemParametersInfo(SPI_SETNONCLIENTMETRICS, ncm.cbSize,  @ncm, 0) then
   Result := true;
 end;
 end;

Un Saludo.