Rolagem automática em ListBox no Delphi

Inclua na seção uses:Windows, Messages

Para rolar o conteúdo de um ListBox automaticamente basta 
enviar uma mensagem WM_VSCROLL para a janela do componente.
No primeiro parâmetro da mensagem devemos passar o tipo de
rolagem que deverá ser feita, ou seja:



SB_LINEDOWN - Uma linha para baixo.
SB_LINEUP - Uma linha para cima.
SB_PAGEDOWN - Uma página para baixo.
SB_PAGEUP - Uma página para cima.
SB_TOP - Topo da lista.
SB_BOTTOM - Fim da lista.

SendMessage(ListBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Observações

A mensagem WM_VSCROLL aceita outros parâmetros. Pesquise no Help da API do Windows por WM_VSCROLL para obter mais informações.