Список в combobox

[Ernest027]

Всем привет)
Есть комбобокс и кнопка. При нажатии кнопки выбирается следующая запись в комбобоксе. Когда доходит до конца списка, нужно чтобы выбиралась первая запись. Делаю так:

sComboBox1.ItemIndex:=sComboBox1.ItemIndex+1;
if sComboBox1.ItemIndex>sComboBox1.Items.Count-1 then
sComboBox1.ItemIndex:=0;

но почему то с последней на первую запись не перескакивает.
Прошу помочь. Спасибо)

[Filka]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := ComboBox1.ItemIndex;
  if I = ComboBox1.Items.Count - 1 then
    I := -1;
  ComboBox1.ItemIndex := I + 1;
end;

[Ernest027]

Спасибо большое)

[Filka]

Пожалуйста.