Прокрутка в Memo

[Freestyler]

Прошу помочь, искал в поиске, среди исходников, вообще по интернету - не нашёл ничего толкового.
Я вывожу текст в поле Мемо. Когда он скрывается внизу, активируется ScrollBar, но сам не прокручивается! Т.е. новый текст остаётся внизу и пользователю приходится прокручивать самому вручную. Т.к. такие сообщения будут выводиться довольно часто, это будет более чем неудобно. К тому же он (пользователь) не может ничего писать в поле Мемо.
Надеюсь, я более-менее понятно объяснил проблему. Существует ли вообще её решение, и, если да, то какое?

[Terran]

Сообщение от Freestyler

Прошу помочь, искал в поиске, среди исходников, вообще по интернету - не нашёл ничего толкового.
Я вывожу текст в поле Мемо. Когда он скрывается внизу, активируется ScrollBar, но сам не прокручивается! Т.е. новый текст остаётся внизу и пользователю приходится прокручивать самому вручную. Т.к. такие сообщения будут выводиться довольно часто, это будет более чем неудобно. К тому же он (пользователь) не может ничего писать в поле Мемо.
Надеюсь, я более-менее понятно объяснил проблему. Существует ли вообще её решение, и, если да, то какое?

Попробуйте такой способ:

Procedure TForm1.Memo1Change(Sender: TObject);
Begin
Memo1.Perform(EM_LINESCROLL,0,Memo1.Lines.Count-1);
End;

Или такой:
Этот пример прокручивает на одну строку вниз.

Memo1.Perform(WM_VScroll, SB_LINEDOWN,0); 
Возможны так же следующие опции: 
SB_BOTTOM 
SB_ENDSCROLL 
SB_LINEDOWN 
SB_LINEUP 
SB_PAGEDOWN 
SB_PAGEUP 
SB_THUMBPOSITION 
SB_THUMBTRACK 
SB_TOP

TComboBox, TListBox, TRichEdit и т.п можно прокрутить подобным образом

[Arkuz]

Сделал банальное добавление по таймеру для проверки

Memo1.Lines.Add('memo1');

Всё работает, курсор постоянно в мемо стоит в начале новой строки и Скролл движется сам...

[Freestyler]

Сообщение от Arkuz

Memo1.Lines.Add('memo1');

Огромное спасибо, Arkuz, естественно, всё сработало. Просто я добавлял текст благодаря "Memo1.Text", а решение было так очевидно.