Objekt durch String finden

[fLaSh11]

so:

Delphi-Quellcode:

for i:=9 to 21 do (FindComponent('ComboBox' + IntToStr(i)) as TComboBox).Items:=ComboBox8.Items;
for i:=9 to 21 do (FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex:=0;