case Key of
Vk_Up : SendMessage(Memo.Handle, WM_VSCROLL, SB_LINEUP, 0);
Vk_Down : SendMessage(Memo.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;