Richedit scrollen, aber ohne Fokus

[user0815]

Delphi-Quellcode:

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  RichEdit1.Lines.BeginUpdate;
  RichEdit1.Lines.Append(FormatDateTime('hh:nn:ss:zzz', Now));
  RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);
  RichEdit1.Lines.EndUpdate;
end;