//значица так:
//проверяем строку 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 минуту
Ой, я цвета перепутал, просто обычно парни синим выделябтся, а девушки красным.