Richedit automatisch immer ganz nach unten scrollen lassen

[freak1985]

hm, also irgendwie funzt das net so recht.

ich hab in dem Onkeypress von einem Edit foglendes:

Delphi-Quellcode:

  if Key = #13 then
  begin
    Richedit1.Text := Richedit1.Text + Edit1.Text + #13#10;
    Edit1.Clear;
    Edit1.SetFocus; 
    RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
    RichEdit1.SelStart:=length(RichEdit1.text);
  end;

aber nach unten scrollen tut der net

kann mir jemand sagen,w as daran falsch ist?