Hacer Scrol en un RichEdit para abajo

[fide_uci]

Ya lo vi graciassssss. Es algo como:

Código Delphi [-]
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;