Delphi цветной текст RichEdit

[X-Vlad]

Всем доброй ночи, сейчас я вам покажу как сделать цветной текст в компоненте TRichEdit
Кидаем на форму компонент, и пишем функцию:

function AddColorText(Text: String; Color: TColor): String;
begin
form1.RichEdit1.SelAttributes.Color := Color;
form1.RichEdit1.SelText := Text;
form1.RichEdit1.SelAttributes.Color := clBlack;
end;
//заменяем RichEdit1 на имя вашего компонента, если вы сменили

А используем так:

form1.RichEdit1.Lines.Add(AddColorText(text, clblue));
//заменяем RichEdit1 на имя вашего компонента, если вы сменили
переменная text - строка которая должна быть добавлена
//где clblue это цвет который должен быть в строки которую вы добавляете

Примеры цветов:
clred
clyellow
clblue
clgreen и другие

Если что то не выходит, то пишите сюда