richedit1.SelStart := Pos(lin2, RichEdit1.Text); //lin2 es string y tiene el valor de la linea a resaltar
richedit1.SelLength:=Length(lin2); //longitud del texto
richedit1.SelAttributes.Color:=clred; //color
el problema es que siempre me colorea en rojo la primera linea y solo el primer caracter
|