RichEdit1 как вставить цветной тест кнопокой

[aesoem]

Сдравствуйте, пишу ICQ клиент... Палучилось неплохо...вот только одно неудобство.... просто писать перед сообщениями Я: ........... или ICQ {xxxxxxxx} неудобно... Глаза несразу воспринимают этот текст.... Как бы вставить в RichEdit уже раскрашеный и жирный текст, при этом после него мне нужно написать опять нормальным чорным цветом, все это проводится в одной процедуре

[Stilet]

  
// Вставляем красное Я
 RichEdit1.SelAttributes.Color:=clred;
 RichEdit1.SelText:='Я:';
// Вертаем все атрибуты цвета взад
 RichEdit1.SelAttributes.Color:=clBlack;

[aesoem]

Большое спасибо! А как сделать текст жирным?

[Stilet]

RichEdit1.SelAttributes.Style:=[fsBold];

[aesoem]

Сообщение от Stilet

  
// Вставляем красное Я
 RichEdit1.SelAttributes.Color:=clred;
 RichEdit1.SelText:='Я:';
// Вертаем все атрибуты цвета взад
 RichEdit1.SelAttributes.Color:=clBlack;

при изменении размера текста, все буквы становятся чорными как это исправить?

[Crivel]

aesoem, как изменяйте размер текста, заново его перекрашивайте.