TComboBoxEx: Hinzufügen von Items

[Mamphil]

Hallo!

Ich bin auf folgendes Phänomen gestoßen:
Ich möchte zu einer TComboBoxEx zur Laufzeit ein Item hinzufügen und dessen Bezeichnung (Caption) und Einrückung (Indent) ändern. Wenn ich die Bezeichnung vor der Einrückung setze, funktioniert es nicht. Setze ich die Einrückung vor der Bezeichnung, klappt alles.

z. B. habe ich eine ComboBoxEx "CBE". Das erste Beispiel funktioniert nicht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var myItem: TComboExItem;
    i: Integer;
begin
  for i := 0 to 10 do
  begin
    myItem := CBE.ItemsEx.Add;
    myItem.Caption := 'Bla';
    myItem.Indent := i;
  end;
end;

Das hier funktioniert dagegen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var myItem: TComboExItem;
    i: Integer;
begin
  for i := 0 to 10 do
  begin
    myItem := CBE.ItemsEx.Add;
    myItem.Indent := i;
    myItem.Caption := 'Bla';
  end;
end;

Gibt es dafür eine nachvollziehbare Erklärung oder ist das "einfach so" (in Delphi 7)?

Mamphil