Delphi - Insertar lineas en TMemo

Hola

Estoy intentando insertar una linea en la posición del cursor en un componente TMemo, el problema es que no encuentro la forma de saber la posición de la linea marcada con el cursor para poder pasarsela al método insert. He trabajado siempre con TList y la propiedad Item tiene el método Selected, pero no encuentro algo parecido en el TMemo

Gracias

Function TForm1.Lpos:integer;
begin
Result := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
end;
(Tomado y adaptado del Trucomania :)).