TRichEdit

Code: ---DO NOT USE THIS EXAMPLE - SEE BELOW INSTEAD---

   with MainFrm.RichEdit1 do

   begin

     perform (WM_VSCROLL, SB_BOTTOM, 0);

     perform (WM_VSCROLL, SB_PAGEUP, 0);

   end;

Code:

   with MainFrm.RichEdit1 do

   begin

     SelStart := Length(Text);

     Perform(EM_SCROLLCARET, 0, 0);

   end;