LineNumber of Cursor in TMEMO
Remember, SelStart must have been set somehow
Where the TMEMO control is called memo1:

     LineNumber:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,memo1.Selstart,0);

LineNumber is returned as a LongInt, but you can typecast it to an Integer.