Всем доброй ночи, сейчас я вам покажу как сделать цветной текст в компоненте TRichEdit
Кидаем на форму компонент, и пишем функцию:
function AddColorText(Text: String; Color: TColor): String;
begin
form1.RichEdit1.SelAttributes.Color := Color;
form1.RichEdit1.SelText := Text...