在combox中加入多列。。

type
    pFields=^TFields;//定义一个记录集
    TFields=Record
        ID,CName,EName:String;
    end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  pF:pFields;
begin
  New(pF);
  pF.ID:='001';
  pF.CName:='中国';
  pF.EName:='北京';
  cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));

  New(pF);
  pF.ID:='002';
  pF.CName:='日本';
  pF.EName:='东京';
  cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));
end;

procedure TForm1.cxComboBox1PropertiesChange(Sender: TObject);
begin
  if   cxComboBox1.ItemIndex <0   then   Exit;
      Edt1.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).EName;
      Edt2.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).ID;
      Edt3.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).CName;
end;