| Как выделить в RichEdit 4 строки 
 
 |  | Год назад. Раздается в нашей конторе звонок. Поднимает трубку человек, там кого-то просят, кто в другой комнате ... человек оглядывает присутствующих "Как в соседню комнату перевести? Какай там адрес? www а дальше что?" | 
 
 
Строки нумеруются с 0!
 | 
 
with richedit1 do
begin
  selstart:=FindText(lines[3],0,length(text), [stWholeWord]);
  sellength:=length(lines[3]);
  selattributes.color:=clBlue;
end;
 | 
 
 
работает, если строка уникальная,иначе можно - вычислять начало
 | 
 
sstart := 0;
for i := 0 to numstr - 1 do
  sstart := sstart + length(lines[i]) + 2; // numstr=3
selstart := sstart; // для 4 строки
 | 
 
 |