如何在memo中自动滚到最下一行？

Question

memo中的内容很多，而且不断增加。每次都要用鼠标拉动scrollbar，才能看到最后一行。如何让memo自动滚到最下一行？

Answer 1

移动到最后字符：
  Memo1.SetFocus;
  Memo1.SelStart := Length(Memo1.Text);
  Memo1.SelLength := 1;

Answer 2

Memo1.SelLength:= Length(Memo1.Text);

Answer 3

sendmessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);

Answer 4

加一个timer,然后引用楼上的代码，就可以了

Answer 5

错了~~
memo1.SelStart:= getTextlen;
memo1.SelLength:= Length(memo1.text);