procedure TForm1.Button1Click(Sender: TObject); var s : ; begin combobox1.Clear; s := \'01\'; combobox1.Items.AddObject(\'北京\',TObject(s)); s := \'02\'; combobox1.Items.AddObject(\'天津\',TObject(s)); s := \'03\'; combobox1.Items.AddObject(\'上海\',TObject(s)); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin edit1.Text := (combobox1.Items.Objects[combobox1.ItemIndex]); end;