ListBox вперед назад

[pas2]

Навигация в ListBox. Вперед работает без проблем, назад тоже только до 1й строчки а повторно вперед перестает работать

//процедура вперед
if i<ListBox2.Items.Count-1 then
   begin
    inc(i);
 Filename:=ListBox1.Items.Strings[i];
 ListBox1.ItemIndex:=i;
 ListBox2.ItemIndex:=i;
   end
   else exit;

//процедура назад
   if i = ListBox2.Items.Count-1  then
   begin 
 Filename:=ListBox1.Items.Strings[i-1];
 ListBox1.ItemIndex:=i-1;
 ListBox2.ItemIndex:=i-1;
   mode:=stop;
    player;
   end
   else exit;   
 end;

[pas2]

вопрос решен