[dec]

Hola,

Creo que no es muy elegante, que, igual no funciona en todo caso, y que hasta me parece recordar otra forma mejor... pero, en fin, por lo pronto aquí va una posible solución. Haz la prueba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Add(TimeToStr(Time));
  PostMessage(Richedit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;