Как выделить в RichEdit 4 строки

Как выделить в RichEdit 4 строки

Строки нумеруются с 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 строки

купить vigrx plus . Сро в энергетике, сро энергоэффективность. Строительные СРО. . kludi смесители . Недвижимость в России, продажа: обследование зданий и сооружений. GeoCompany - изыскания. .