Как пройти по всем ComboBox и узнать их Text ?

[Noor]

Всем привет !
Нужна помощь в решении такой задачки. На форме 8 ComboBox-ов, у всех значения Items (Да,Нет,Воздержусь). Пользователь делает свой выбор и при нажатии на кнопку Выполнить происходит сохранение в ИНИ файл преобразованных значений такого вида

если ComboBox.Text := 'НЕТ' то Имя переменной := 0 иначе
если ComboBox.Text := 'Да' то Имя переменной := 1 иначе
если ComboBox.Text := 'Воздержусь' то Имя переменной := 2 иначе
IniFile.WriteString('Golos','Znachenie',IntToStr(Имя переменной));

Само преобразование Нет=0 и т.д. я сделаю, а вот как пройти по всем ComboBox если их 8.
А то писать для 8 combobox-ов

        if ComboBox1.Text ='Нет'then st := 0 else
        if ComboBox1.Text ='Да'then st := 1 else
        if ComboBox1.Text ='Воздержусь' then st := 2 else

не удобно !!!!

[Marsel737]

Как то так

var
  I: integer;
begin
  for I := 1 to 8 do
  begin
    case (FindComponent('ComboBox' + IntToStr(I)) as TComboBox).ItemIndex of
      0: st := 0;
      1: st := 1;
      2: st := 2;
    end;
  { Нужные операции }
  end;
end;

[Noor]

Спасибо ...помогло !!!