Hacer Scrol en un RichEdit para abajo

[fide_uci]

Hola amigos. Me sucede lo siguiente.
Cada cierto tiempo, me llega un evento a la aplicacion, el cual utilizo para agregar un texto a un RichEdit.

El problema esta en que cuando agrego el texto y se pasa del alto que actualmente tiene el RichEdit, la barra de scrol vertical, que es la unica que tengo activa, no hace el Scrol Automatico.

Alguien me puede decir como resolver el problema?.
O sea que a medida que se vallan agregando mas lineas al RichEdit este despace la barra automaticamente para el final del RichEdit y asi que se vea la ultima linea que se agrego.

Desde ya muchas gracias !!!

[fide_uci]

Ya lo vi graciassssss. Es algo como:


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F8 then
SendMessage(Memo1.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEDOWN, { Scroll Command }
0) { Not Used }
else if Key = VK_F7 then
SendMessage(Memo1.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEUP, { Scroll Command }
0); { Not Used }
end;

[Caro]

Hola fide, puedes hacerlo también de esta forma:


RichEdit1.SelStart := length(RichEdit1.Text);
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);


Saluditos