Mostrar linhas e Colunas Atualizadas de um MEMO

Olá Pessoal,

estou com dificuldades em atualizar a posição do cursor (linha e coluna) quando o movimento pelas setas. Coloquei as linhas abaixo no evento ONMOUSEMOVE mas como era de esperar, não deu certo. Atualiza somente com o movimento do mouse sobre o MEMO. Testei nos outros eventos mais também sem sucesso.

With Memo do
begin
linha:= Perform(EM_LINEFROMCHAR,SelStart, 0);
coluna:= SelStart - Perform(EM_LINEINDEX,linha, 0);
StatusBar1.Panels[0].Text:=´Linha: ´+inttostr(linha+1);
StatusBar1.Panels[1].Text:=´Coluna: ´+inttostr(coluna);
end;