请问一下怎么解决不同对象的赋值问题

Question

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;
我想给他们一次性赋值不知道可以否？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('设备编号');
  ComboBox1.Items.Add('设备名称');
  ComboBox1.Items.Add('交班日期');
  ComboBox1.Items.Add('交班人');
  ComboBox1.Items.Add('接班人');  ComboBox2.Items.Assign(ComboBox1.Items);  // 复制到ComboBox2
  ComboBox3.Items.Assign(ComboBox1.Items);  // 复制到ComboBox3
end;

Answer 2

新建一个文本文档：ABC.txt
   设备编号 
   设备名称
   交班日期
   交班人
   接班人ComboBox1.Items.LoadFromFile（‘ABC.txt’）；
ComboBox2.Items.LoadFromFile（‘ABC.txt’）；
ComboBox3.Items.LoadFromFile（‘ABC.txt’）；
以后如果要修改也方便啊