Delphi - Saber linea de un RichEdit

Hola otra vez. Me gustaría saber si podeis decirme cómo puedo saber la linea actual en la que se encuentra el cursor (el de escritura) dentro de un RichEdit. Gracias.

Ya he encontrado una solución:

LineaActual := SendMessage(RichEdit1.Handle,EM_LINEFROMCHAR,RichEdit1.SelStart,0);

Gracias de todas formas!!