Problemas al cambiar recurso Fuente

[MAXIUM]

Al momento de cargar el formulario tengo el siguiente código

Código Delphi [-]
AddFontResource(PChar(Directorio + 'DOSASCII.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Nunca me había dado problemas y todo funcionaba bien hasta que...

El problema ahora es que la aplicación no termina de cargar y solo eliminado la línea SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); se "soluciona el problema"

Lo mismo al finalizar la aplicación.

Si no me he dado a entender me avisan