Scrolle i TrichEdit

Jeg har en tRichEdit der overvåger en process - hver gang noget ændrer sig, tilføjer jeg en linie, og scroller ned til den. Det ser dog ud til at give problemer på nogle systemer.
Jeg bruger følgende procedure, efter en linie er tilføjet.

  If memStatus.Lines.Count >= vMaxScroll Then
  Begin
    memStatus.Lines.Delete(0);
    memStatus.SelStart := Length(memStatus.text);
    memStatus.Perform(EM_SCROLL,SB_BOTTOM,0);
  end
  else
    memStatus.Perform(EM_SCROLL,SB_LINEDOWN,0);

Det virker på en Windows 2000, men på andre systemer kan det åbenbart give problemer. Nogen der ved om SB:BOTTOM eller SB_LINEDOWN ikke fungerer på nogle Win versioner

Hvad er mit alternertiv ?