Стилизованный выпадающий список

[Morfi]

Столкнулся с такой проблемой:

Есть форма с TComboBox. Стиль форме (один из тех, который поставляется из коробки) задаю в run-time:

procedure TFormEditorRoomAttribute.FormCreate(Sender: TObject);
begin
  inherited;
  self.StyleBook := uAccommodationInventory.ReferenceAccommodationInventoryForm.StyleBook;
end;

Необходимо, чтобы TComboBox отображал items c bitmap. Заполняю TComboBox.ListBox так же в run-time (TListBoxItem.StyleLookup := 'listboxitemleftdetail'):

var
  I: integer;
  FListBoxItem: TListBoxItem;
begin
  //cbPicture: TCombobox;
  Self.cbPicture.BeginUpdate;

  Self.FRoomAttributePictures := ConnectionModule.DSServerModuleAccommodationClient.GetRoomAttributePictures;
  for I := 0 to Self.FRoomAttributePictures.Count - 1
  do
    begin
      FListBoxItem := TListBoxItem.Create(Self.cbPicture);
      FListBoxItem.TagObject:= Self.FRoomAttributePictures[i];

      FListBoxItem.ItemData.Text := Self.FRoomAttributePictures[i].ID.ToString;
      FListBoxItem.ItemData.Bitmap := Self.FRoomAttributePictures[i].GetBitmap;
      FListBoxItem.StyleLookup := 'listboxitemleftdetail';
      Self.cbPicture.AddObject(FListBoxItem);
    end;
  Self.cbPicture.EndUpdate;
end;

TComboBox.DropDownKind выставляю в "Custom".
Вроде как всё готово. Но получается вот такая картина.

Создаю и отображаю форму, bitmap в TCombobox отображен:

Раскрываю список, bitmaps так же отображаются:

Но, как только выбираю один из items, происходит следующее:

выбранный item не отображается, вообще!

Долго ли, мало ли копался в исходниках TCombobox...

В общем нашел некоторое решение данной проблемы. На событие TComboBox.OnClosePopup повесил код:

begin
  //cbPicture: TCombobox;
  self.cbPicture.Selected.NeedStyleLookup;
  self.cbPicture.NeedStyleLookup;
  self.ApplyStyleLookup;
end;

Результат, выбранный item отображается в TCombobox:

 

Теперь вопрос: Так и должно отрабатывать? Или что-то делаю не так?! Если что-то делаю не так, то как надо делать?