Delphi Combobx objects 应用

1，循环塞入 value 和 key

while not ADOQuery1.Eof do
                begin
                        ComboBox1.Items.AddObject(ADOQuery1.FieldByName('ColumnNameName).AsString,
                        TObject(NewStr(ADOQuery1.FieldByName('f_'ColumnNameKey).AsString)));
                        ADOQuery1.Next;
                end;

2，获取combobox的object  key

    PString(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^；