[ryderx34]

надо было добавить в процедуру, в которой изменяется индекс:

Код:

ListBox2.Repaint;