TMemo 让滚动条 回到顶部

procedure TFormLogView.StringGrid1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(StringGrid1.Cells[COL_CONTENT, StringGrid1.Row]);

  //让滚动条 回到顶部，这两句就可以了
  Memo1.SelStart := 0;
  Memo1.SelLength := 0;
end;