Думаете я не читал? Там ни единого слова не сказано о цветах.
------------ Дoбавленo в 00.48:

Сам догадался, честное слово. Просто когда программа никак не работает -- стараешься застраховаться всеми методами какие приходят в голову, а когда все работает -- убираешь все, что не требуется.
------------ Дoбавленo в 01.14:
А какие нужно данные внести в метод doFont компоненто Edit(Надпись), чтобо сменить цвет текста?
------------ Дoбавленo в 01.23:
Или сменить аттрибут Underline