Richedit: prüfen ob verticale scrollbar sichtbar ist

[Pseudemys Nelsoni]

hoi, ich hab es mal mit folgendem versucht:

Delphi-Quellcode:

procedure TForm1.RichEdit1Change(Sender: TObject);
Var
  si: TScrollInfo;
begin
  si.cbSize := sizeof(si);
  si.fMask := SIF_ALL;
  If GetScrollInfo(RichEdit1.Handle, SB_VERT, si) Then
  begin
    If si.nPos + si.nPage >= si.nMax Then
      SendMessage(Richedit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
  end
  else
    SendMessage(Richedit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;

es geht darum das die scrollbar am anfang noch nicht existiert, sondern erst wenn der text überläuft erscheint sie, wenn weiterer text hinzugefügt wird, wird aber nicht mit gescrollt, erst wenn ich die scrollbar einmal nach unten geschoben habe, wieso funktionietr das nicht von anfang an das die scrollbar gleich ganz unten ist?