Procedure tForm1.Button1Click (Sender: TOBJECT); var s: string; begin comboBox1.cle; s: = '01'; comboBOX1.Items.addObject ('Beijing', Tobject (s)); s: = '02'; ComboBox1.Items.addObject ('Tianjin', Tobject (s)); s: = '03'; ComboBoX1.Items.addObject ('Shanghai ", Tobject (s)); End; Procedure TFORM1.COMBOX1CHANGE (Sender: TOBJECT) Begin Edit1.Text: = String (ComboBoX1.Items.Objects [ComboBox1.ItemIndex]);
