// TComboBoxEx
cbbCity: TComboBoxEx;
item: TComboExItem;
cbbCity.ItemsEx.Clear; //清空
cbbProv.itemIndex //当前索引
item := cbbCity.ItemsEx.Add; //添加项
// cbbCity.ItemsEx.AddItem(FGQRegion.AreaRegion.Items[i].RegionName,i,1,1,1,nil) ; //为什么这样不行
item.Caption := FGQRegion.CityRegion.Items[i].RegionName;
item.ImageIndex := i; //作为标志位而已
cbbCity.ItemsEx.Items[cbbCity.itemIndex].ImageIndex; //取图像索引
//TComboBox
cbbAction.Items.Add(Format('%s>开始查询...', [FormatDateTime('hh:mm:ss', Now)]));//添加格式化的项
cbbAction.ItemIndex := cbbAction.Items.Count - ; //自动指定最后一行