[The Shadow]

Код:

if ListBox1.ItemIndex < ListBox1.Items.Count - 1 then
ListBox1.ItemIndex:=ListBox1.ItemIndex + 1
else
ListBox1.ItemIndex:=0;