ошибка List index out of bounds (0)

[Smagulov85]

на просторах форума нашел такой код, запись в Combobox1 из ini файла исправил под себя, но при запуске вылетает ошибка List index out of bounds (0), что не так?

try
    i := 0; //Ставим 0
    while true do //Бесконечный цикл
    begin
      if ini.ValueExists('polygodie','p'+IntToStr(i)) then //Если существует
      begin
        ComboBox1.Items.Strings[i] := Ini.ReadString('polygodie', 'p'+IntToStr(i), ''); //Записываем в combobox
      end
      else
        Break; //Иначе Выход из бесконечного цикла
      Inc(i); //Увеличиваем i на 1-о значение(Было 0 стало 1, читаем хелп ;))
    end;
  finally
    ini.Free; //Отваливаем
  end;

[Аватар]

      if ini.ValueExists('polygodie','p'+IntToStr(i)) then //Если существует
      begin
        ComboBox1.Items.Add(Ini.ReadString('polygodie', 'p'+IntToStr(i), '')); //Записываем в combobox
      end

[Smagulov85]

Сообщение от Аватар

      if ini.ValueExists('polygodie','p'+IntToStr(i)) then //Если существует
      begin
        ComboBox1.Items.Add(Ini.ReadString('polygodie', 'p'+IntToStr(i), '')); //Записываем в combobox
      end

спасибо! чет я тормознул