[Alegun]

Сообщение от TEKTON

...хочу в цикле присваивать им индексы
Сделать типо перебора ComboBox*ов (с 15го по 25й)...

Ну, здесь несколько вариантов, если других комбиков нету (с 1го по 14й и с 26го до N), то можно перебором компонентов на форме, примерно так

Код:

for i := 0 to Form1.ComponentCount - 1 do
  if Form1.Components[i] is TComboBox then
     (Form1.Components[i] as TComboBox).Items.Assign(Form1.ListBox1.Items);

а если есть, то тогда поиском,можно так

Код:

for i := 15 to 25 do
  if Form1.FindComponent('ComboBox' + IntToStr(i)) <> nil then
   (Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).Items.Assign(Form1.ListBox1.Items);