TMemo

Code:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_F8 then

   SendMessage(Memo1.Handle, { HWND для Memo }

     WM_VSCROLL, { сообщение Windows }

     SB_PAGEDOWN, {на страницу вниз }

     0) { не используется }

else if Key = VK_F7 then

   SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0);

end;