请问一下怎么给不同的对象赋值呀？请教高手(10分)

procedure Tsb_jjbgl_cx.FormCreate(Sender: TObject);
VAR I:INTEGER;
begin
str1:=' ';str3:=' ';str5:=' ';str7:=' ';
i1:=' ';i3:=' ';i5:=' ';i7:=' ';
combobox1.Items.Clear;
combobox1.Items.Add('设备编号');
combobox1.Items.Add('设备名称');
combobox1.Items.Add('交班日期');
combobox1.Items.Add('交班人');
combobox1.Items.Add('接班人');
//-----------------------------
combobox3.Items.Clear;
combobox3.Items.Add('设备编号');
combobox3.Items.Add('设备名称');
combobox3.Items.Add('交班日期');
combobox3.Items.Add('交班人');
combobox3.Items.Add('接班人');
//-------------------------------
combobox5.Items.Clear;
combobox5.Items.Add('设备编号');
combobox5.Items.Add('设备名称');
combobox5.Items.Add('交班日期');
combobox5.Items.Add('交班人');
combobox5.Items.Add('接班人');
//----------------------------------
combobox7.Items.Clear;
combobox7.Items.Add('设备编号');
combobox7.Items.Add('设备名称');
combobox7.Items.Add('交班日期');
combobox7.Items.Add('交班人');
combobox7.Items.Add('接班人');
end;

combobox3.Items.Text:=combobox1.Items.Text;
combobox5.Items.Text:=combobox1.Items.Text;
combobox7.Items.Text:=combobox1.Items.Text;

还可以：
1。combobox3.Items.Assign(combobox1.Items);等
2。
for i:=0 to 3 do
with TComboBox(FindComponent('combobox'+IntToStr(2*i+1))).Items do
beging
Clear;
Add('设备编号');
....
end;

WiTH ComboBox2.Items do
begin
Clear;
Add('A');
Add('B');
Add('C');
end;
ComboBox3.Items.Assign(ComboBox2.Items);

整型用int 。实型用float。字符用char。

多人接受答案了。