richedit垂直滚动条滚动

最近发现richedit控件添加数据时，垂直滚动条不自动跟随添加的数据向下滚动，在网上找了段代码。

procedure TForm1.Button9Click(Sender: TObject); var i:Byte; stat,len:Byte; begin RichEdit1.Lines.Clear; for i:=1 to 30 do begin RichEdit1.Lines.Add('TestAppcation'+IntToStr(i)); Delay(300); SendMessage(RichEdit1.Handle,EM_SCROLL,SB_LINEDOWN,0) end; end;