Posición en un TMemo

[ixMike]

Buenas,

Quisiera saber cómo obtener la posición del cursor en un TMemo (esto es, fila y columna). Encontré este código en trucomanía.

Código Delphi [-]
var
Lpos,Cpos,LineLength:integer;
begin
Lpos:=SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Cpos:=SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);
CPos:=Memo1.SelStart-CPos;
Label1.Caption:=IntToStr(Lpos);
Label2.Caption:=IntToStr(Cpos);
Label3.Caption:=IntToStr(LineLength);
end;

La cuestión es que funciona bien, excepto cuando estoy seleccionando texto (hace cosas raras).

¿Alguien sabe cómo solucionarlo?

Muchas gracias.