TRichEdit

// 加在OnChange事件中：
SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0);
// 卷屏到光标处

SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);
// 向下卷屏一行

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0)
// 向下卷屏到底;

//读取TStringList
Var
  TempStr: TStrings;
begin
  TempStr := TStringList.Create;
  TempStr.Add('abc');
  RichEdit1.Lines.AddStrings(TempStr);
  TempStr.Free;
end;