Slå autoscroll fra i RichEdit

Jeg bruger SelText, SelLength mv. til at tilføje formateret tekst i en RichEdit. Når man scroller op i RichEdit'en efter nogle linjer er blevet tilføjet, scroller den automatisk ned til bunden. Det er irriterende.

Kan man gøre sådan, så RichEdit'en kun scroller, når scrollbarens position er nederst?

Har prøvet at lave min egen variant af RichEdit, men uden held:

private
  procedure CreateParams(var Params: TCreateParams); override;
...
procedure TRichEditWithLinks.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := Style and not es_autovscroll;
end;

Har også prøvet at gemme SelStart inden jeg tilføjer tekst:

  RichEdit.Lines.BeginUpdate;
  try
  OldSelStart := RichEdit.SelStart;
  // tilføj tekst
  RichEdit.SelStart := OldSelStart;
  finally
  RichEdit.Lines.EndUpdate;

Nogen bud?