怎样控制TrichEdit的光标，使之在不同的行移动

Question

如想要在文本的第五行，将从第二个字符开始的8个字符的颜色改为红色，请问各位该怎么写代码？

Answer 1

var L:integer;
begin
  L:=SendMessage(RichEdit1.Handle,EM_LINEINDEX ,4,0);
  RichEdit1.SelStart:=l+2;
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color:=clRed;
  RichEdit1.SelLength:=0;
  RichEdit1.SetFocus;
end;

Answer 2

谢谢了  
那么
如想要在文本的第line行，将从第index个字符开始的length个字符的颜色改为红色，请问该怎么写代码？