delphi memo 滾動條 自動滾到最后一行

設置垂直滾動條：Propertie-->ScrollBars := ssVertical;
自動滾到最后一行：Memo1.SelLength := Length(Memo1.Text);