TRich edit problem

Jeg har en TRichedit - der overvåger en Process, når der er over 50 linier i slettes øverste linie, og der scrolles til bunden.
Koden ser sådan ud, og er kodet på "OnChange" eventen

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

det giver mig umiddelbart 2 problemer

1. På nogle systemer "Hopper" teksten, når jeg laver den scroll

2. På nogle systemer kommer der en "Richedit line insertion error"

Nogen forslag ?