Fortlaufende Ermittlung der Caret-Position

[p80286]

Hallo zusamen,
Ich habe mir eine kleine Procedure gebastelt um die Caret-Position anzuzeigen.

Delphi-Quellcode:

procedure Show_LinePos(mm:TMemo;sb:TStatusbar);
var
  CurrentLine,
  FirstCharPos,
  CurrentPos   : integer;
begin
  CurrentPos := MM.SelStart;
  CurrentLine := SendMessage(Mm.Handle,EM_LINEFROMCHAR,-1,0);
  firstcharpos:=SendMessage(MM.Handle,EM_LINEINDEX,-1,0);
  sb.Panels[0].Text:=inttostr(CurrentLine+1);
  sb.Panels[1].Text:=inttostr(Currentpos-FirstCharPos+1);
end;

Sie wird über On Mouseup,und OnKeyup aufgerufen.
Wenn ich allerdings die Cursor-Tasten gedrückt halte, dann tut sich nichts in der Anzeige.
(OnKeyPressed habe ich schon versucht)
Wie erhalte ich eine Anzeige wenn ich durch den vorhandenen Text durch scrolle?
(Bevor es jemandem auffällt WordWrap steht auf false)

Gruß
K-H