Coś nie tak z ListBox -em

Więc zrobiłem coś takiego:
Var
Form1:TForm1;
I:Integer;
..........
//i pod buttonem mam:
if listbox1.ItemIndex -1 then
i:=i+1;
listbox1.ItemIndex:=i;
.....................
Ale to i tak źle chodzi moim celem jest zaznaczenie żeby ItemIndex pszeskoczył na nastepną linie za pomocą buttona ale cały czas coś źle z tym jest raz przeskakuje raz nie więc jak to powinno być?

If IloscItemow

listbox1.ItemIndex := succ(listbox1.ItemIndex);

///
Szymek pierwszy... buu.. :)

if listbox1.itemindex