SendMessage(Memo1.Handle,WM_VScroll,SB_LINEUP,0);

SendMessage(Memo1.Handle,WM_VScroll,SB_LINEDOWN,0);