Ошибки при смене Parent'а у TComboBoxEx

[D-mon]

Всем привет.

Проблема такая.

Заполняю TComboBoxEx:

for i := 0 to 9 do
  TComboBoxEx(CBE).ItemsEx.AddItem('Name' + IntToStr(i), i, i, -1, 0, Pointer(i));

После смены TComboBoxEx(CBE).Parent все TComboBoxEx(CBE).Items.Objects очищаются.

В 7-ке этот баг присутствует, а вот в ХЕ2 поправили.

Может кто сталкивался с данной проблемой??? Как пофиксить это в 7-ке???

Спасибо.

[D-mon]

Проблема решена с помощью компонента TComboBox и события OnDrawItem.

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if Control is TComboBox then begin
    TComboBox(Control).Canvas.FillRect(Rect);
    ImageList1.Draw(TComboBox(Control).Canvas, Rect.Left, Rect.Top, Index);
    TComboBox(Control).Canvas.TextOut(Rect.Left + ImageList1.width + 2, Rect.Top, TComboBox(Control).Items[Index]);
  end;
end;