Richedit Zeilenweise scrollen die zweite

[stahli]

Ich habe ein RichEdit mit einheitlichen Zeilenhöhen (14px) und möchte ein Smooth-Scrolling verhindern (also immer Zeilenweise scrollen).
Wie kann man das am einfachsten realisieren?

Mit

Delphi-Quellcode:

    oPos := (GetScrollPos(RichEdit1.Handle, sb_vert));
    oPosM := (oPos mod 14);
    if (oPosM > 0) then
    begin
//      (RichEdit1.Handle, sb_vert, oPos - oPosM, LONGBOOL(True));
//      RichEdit1.Perform(EM_LINESCROLL, 0, -1); //-oPosM);
//      SetScrollPos(RichEdit1.Handle, sb_vert, oPos - oPosM, LONGBOOL(True));
      Beep;
    end;

kann ich schon ermitteln, dass der Textbereich z.B. um 4 Pixel verschoben ist, aber ich kann das nicht vernünftig korrigieren.

Wie lässt sich das über WMVScroll regeln?