delphi - Moving ListBox Scrollbar from code

// scroll a list box vertically down by one line

SNDMSG(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0); 

// Other scroll parameters that can be sent...

// SB_TOP          Scrolls to the upper left

// SB_BOTTOM       Scrolls to the lower right

// SB_ENDSCROLL    Ends scrolling

// SB_LINEDOWN     Scrolls one line down

// SB_LINEUP       Scrolls one line up 

// SB_PAGEDOWN     Scrolls one page down

// SB_PAGEUP       Scrolls one page up