Flere ComboBoxe på samme tid

Hej

Jeg har 70 comboboxe, hvor der skal ske det samme når programmet starter.

for x := 1 to 36 do begin
ComboBox1.Items.Add(IntToStr(x));
ComboBox2.Items.Add(IntToStr(x));
ComboBox3.Items.Add(IntToStr(x));
ComboBox4.Items.Add(IntToStr(x));
osv. osv. osv.
end;

kan det ikke gøres på en lidt smartere måde.. da det er ret besværligt at skulle skrive det samme 70 gange.