[v1s2222]

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 4, 0); // Т.к. строки нумеруются с нуля, то y = 4
  SendMessage(RichEdit1.Handle, EM_SETSEL, i, i);
  RichEdit1.SetFocus;
end;