[mik]

Тогда наверное надо еще делать так:

Код:

Listbox1.ItemIndex := Listbox1.ItemIndex+1;