Visualizar siempre la última línea añadida en un TMemo o TRichEdit

Para que al añadir líneas en un TMemo o TRichEdit siempre muestre la última línea, hay que llamar al método del Scroll del componente.

Lo podemos hacer con una de las siguientes maneras:

procedure TForm1.Button2Click(Sender: TObject);
begin
    RichEdit1.Lines.Add(DateTimeToStr(now) + ' ' + 'Mensaje de prueba');
    SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);
end;

O de estra otra manera:

procedure TForm1.Button2Click(Sender: TObject);
begin
    RichEdit1.Lines.Add(DateTimeToStr(now) + ' ' + 'Mensaje de prueba');
    RichEdit1.Perform( EM_SCROLL, SB_LINEDOWN, 0);
end;