Gracias por tu comentario David. Pensaba que pertenecía a Delphi.
He encontrado una explicación detallada en este enlace:
http://www.pascalgamedevelopment.com...in-application
Incluí ShellAPI en el uses y añadí el código del enlace anterior, y da errores al compilar.
Uno de los mensajes que aparecen es:
"Error: Identifier not found "AddFontResource""
Y lo mismo pasa con: RemoveFontResource, SendMessage, HWND_BROADCAST y WM_FONTCHANGE cuando se compila.
No tengo experiencia usando las órdenes del API de Windows y supongo que falta algo que desconozco.
¿Alguien tiene alguna sugerencia?.
Gracias y saludos.