[Alegun]

Код:

with RichEdit1 do
  begin
   SelStart:= Perform(EM_LineIndex, 2 {line}, 0) + 5 {char};
   Perform(EM_ScrollCaret, 0, 0); // скроллинг к позиции каретки
   SetFocus;
  end; //Drkb: 00567

З.Ы. Увж. AlexandrV, скачайте пжлст к себе на диск базу знаний DRKB, там есть решения для всех ваших последующих вопросов