Con el método GetCaretPos() de richedit, puesto en builder 4 o superior. Obtendrás la posición del cursor, pues el primer valor del Tpoint es la fila. pues haciendo RichEdit1->Lines->Strings[a.x] obtienes la linea entera.De todas formas hay componentes que sirven para lo que quieres, tale como ColorMemo, HiglightRichedit, etc. Buscalos en www.delphisuperpages.com o en www.torry.net.
Please, dime la forma que al final vas a usar, y si lo haces a mano pasame el codigo fuente que has usado, yo estoy haciendo lo mismo, y lleva su tiempo.