Код:
Var
A,B:Integer;
begin
A:=ListBox1.Items.Capacity;
B:= ListBox1.ItemIndex+1;
if B=A then
begin
ListBox1.ItemIndex:=0;
end;
Admin: Пользуемся тегами!
Ось код.Куда вставить сам придумай.ListBox1.Items.Capacity;Визнача скіки строк в items.Коли доходе но останньої строки переключаєтся на першу.