Как добавить и автоматически прокручивать скроллбар в RichEdit ?

[GAGARIN-NEW]

Как автоматически прокручивать скроллбар в RichEdit ?
использую такую процедуру

//--COLORED LINE
 procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := Length(Text);
     SelAttributes.Color := AColor;
     SelAttributes.Size := 8;
     //SelAttributes.Name := 'MS Sans Serif';
     Lines.Add(AText);
   end;
 end;
Пример :
addcoloredline(richedit1 ,edit1.Text,clred);
//--COLORED LINE

Если я мышкой поменял позицию скроллбара то после того как новые строчки "вылезают" за видимые пределы ричэдита то скроллбар не сдвигается (хотя мне кажется что это должно происходить автоматом...).
Скажите как автоматически сдвигать вниз скроллбар (Только если появились новые строчки )?

[AlDelta]

У RichEdit есть свойство ScrollBars
По умолчанию ScrollBars = ssNone, что означает их отсутствие. Свойству ScrollBars можно задать значения ssHorizontal, ssVertical или ssBoth, что будет соответственно означать наличие горизонтальной, вертикальной или обеих полос прокрутки.

P.S.:связка RichEdit и F1 решает очень много проблем.
P.S.S: Невнимательно прочитал вопрос.

[Stilet]

Добавь :

..........
 Lines.Add(Edit1.Text);
 SendMessage(RichEdit1.Handle,EM_SCROLLCARET,0,0);
..........

[mihali4]

Или RichEdit1.Perform(EM_SCROLLCARET,0, 0);

[GAGARIN-NEW]

Спасибо всем !