#pas
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
и
Закомментаривание, вышеприведённой строки, решает проблему появления ошибки, но, естественно, появляется проблема обновления списка шрифтов системы в других программах. Можно, конечно, вызывать это сообщение с помощью компонента SendMessage, но для этого надо вынести в свойства компонента TempFont вызов SendMessage.