// 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 - ; //自动指定最后一行