Вообще-то там ListBox использовался лишь для построения наглядного списка шрифтов и никак не влияет на процесс. Это раз. Два, шрифт там меняется в Label. В RichEdit он тоже будет меняться по doFont, вот только меняться он будет ВО ВСЁМ поле ввода сразу, включая уже введённые ранее строки.
Он работает, у Вас просто было неправильное значение ControlManager в FontManager. Но работает он, опять же, на весь текст.