В граф режиме не изменяются шрифты (SetFontStyle). По завершению граф режима выдается след сообщение
(writeln(GraphErrorMsg(ge))) - Font file not found
Шрифты пробовал ставить стандартные (GothicFont, TriplexFont ... )
http://forum.sources.ru/index.php?showtopic=136040