[nixon232]

Код:

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);
  (Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex:=0;
 end; // тут конец 

есть конец, а где начало?