Как изменить цвет текста на всей строке в RichEdit??

[IIpopoK]

Здравствуйте!
У меня такой вопрос, как изменить цвет текста на всей строке?
При условии, если эта строка содержит определенное слово!
к примеру:
-> he [Он] Хай!
-> she [Она] Привет!
т.е. как
если в тексте находится слово "he", то красим все строки с этим словом в "Красный".
если в тексте находится слово "she", то красим все строки с этим словом в "Голубой".
как это сделать????
Обычно это используется в чатах когда пользователь выбирает себе цвет, и все его сообщения идут под этим цветом.
еще используется в программах для "хтмл" или "пхп" да и других тоже. вот. Такою вещь я и хочу реализовать. Короче хочу сделать чат небольшой, чтобы пользователь выбрал цвет и в дальнейшем все его сообщения были под этим цветом. Подскажите пожалуйста

[RumSun]

//значица так:
//проверяем строку s
if pos('she',s)>0 then RichEdit1.SelAttributes.Color:=clRed;
if pos('he',s)>0 then RichEdit1.SelAttributes.Color:=clBlue;
//добавляем ее в ричедит уже "в цвете"
RichEdit1.lines.add(s);

надеюсь помог

Добавлено через 1 минуту
Ой, я цвета перепутал, просто обычно парни синим выделябтся, а девушки красным.

[plahmonah]

Тогда лучше так написать:
if pos('she', s)>0 then RichEdit1.SelAttributes.Color:=clRed
else
if pos('he', s)>0 then RichEdit1.SelAttributes.Color:=clBlue;
RichEdit1.lines.add(s);
или так
if pos('she', s)>0 then RichEdit1.SelAttributes.Color:=clRed
else
RichEdit1.SelAttributes.Color:=clBlue;
RichEdit1.lines.add(s);

RumSun
а то в твоем коде получается she и he одним цветом в RichEdit1 записывается.

Добавлено через 7 минут
IIpopoK
Прикольно, реализовать можно...
Вопрос а ты к чату уже коннект прикрутил?