Como saber la posicion Fila, Columna en un MEMO?

[bustio]

Hola a todos:

Necesito saber en que posicion FILA, COLUMNA se encuentra el cursos de edicion dentro de un MEMO.. algo mas o menos asi como lo que tienen todos los editores de codigo que te dicen en que lugar exactamente esta para do el cursor,,, y que cuando lo mueva con las teclas del cursor del teclado pues que se actualice esta informacion. Probe con el truco que se encuentra en TrucoMania y no funciona.. no se por que sera.

Código Delphi [-]
procedure TFrmChild.SynEditorKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Row : Integer;
  Col : Integer;
  LineLength : Integer;

begin
 Row := SendMessage(SynEditor.Handle,EM_LINEFROMCHAR,SynEditor.SelStart,0);
 Col := SendMessage(SynEditor.Handle,EM_LINEINDEX,Row,0);
 LineLength := SendMessage(SynEditor.handle, EM_LINELENGTH, Col, 0);
 Col := SynEditor.SelStart - Col;

 StatusBar1.Panels[1].Text :=  IntToStr(Row) + ': ' + IntToStr(Col);
end;

NOTA: Utilizo un SynEditor para mostrar los textos, que a la larga es lo mismo que un TMEMO.