цикл с однотипными компонентами

[iiunbreakableii]

Здравствуйте господа программеры, не подскажите как вогнать этот код в цикл?

  
  b.Cells[1,b.RowCount-1]:=ComboBox1.Text;
  b.Cells[2,b.RowCount-1]:=ComboBox2.Text;
  b.Cells[3,b.RowCount-1]:=ComboBox3.Text;
  b.Cells[4,b.RowCount-1]:=ComboBox4.Text;
  b.Cells[5,b.RowCount-1]:=ComboBox5.Text;
  b.Cells[6,b.RowCount-1]:=ComboBox6.Text;
  b.Cells[7,b.RowCount-1]:=ComboBox7.Text;
  b.Cells[8,b.RowCount-1]:=ComboBox8.Text;

Спасибо!

[Utkin]

Вам нужно создать массив компонентов ComboBox (и каждый инициализировать) - далее в цикле от 1 до 8.

[Levsha100]

Вот это вам поможет http://programmersforum.ru/showthrea...find+component

[iiunbreakableii]

Спасибо Вам, Levsha100!
Это то, что нужно.
В итоге код сократился до двух строчек:

  for i := 1 to n do
  b.Cells[i,b.RowCount1]:=TComboBox(FindComponent('combobox'+inttostr(i))).Text;