delphi memo 滚动条 自动滚到最后一行

设置垂直滚动条：Propertie-->ScrollBars := ssVertical;
自动滚到最后一行：Memo1.SelLength := Length(Memo1.Text);