цвет элементов в списке

[gonzales]

Доброго времени суток!

Вроде элементарный вопрос, но не могу сообразить что не так. Хочу раскрасить текст элементов combobox в разные цвета или добавить к ним кружки с цветом.

Ни то, ни то не получается.

Вот процедура

procedure TForm28.CreateSystemColor(Name:string; itemcolor:int64; ID:integer);
var
  item: tlistboxitem;
  circle:TCircle;
begin
  item := tlistboxitem.Create(nil);
  item.Parent := Combobox2;
  item.text := Name;
  item.Tag := ID;
  item.StyledSettings := item.StyledSettings - [TStyledSetting.FontColor];
  item.TextSettings.FontColor:=itemcolor;
  item.FontColor := itemcolor;

  circle:=TCircle.Create(item);
  circle.Parent:=item;
  circle.Align:=talignlayout.Right;
  circle.Fill.Color:=itemcolor;
  circle.Stroke.Color:=talphacolorrec.White;
  circle.Visible:=true;
end;

Подскажите, где я накосорезил