Смена цвета шрифта в Combobox

   Canvas.font.Color:=clblack;
  Canvas.FillRect(rect);
  Canvas.TextOut(rect.Left,rect.Top,items[index]);

ComboBoxpodType.ListItems[ComboBoxpodType.ItemIndex].FontColor := TAlphaColorRec.Lime;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
if ComboBox1.Items.Strings[Index] = combobox1.Items.Strings[2] then //2 - индекс нужного item
ComboBox1.Canvas.Font.Color := clRed;
ComboBox1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,ComboBox1.Items[Index]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Style:=csOwnerDrawFixed;
end;

            while i < Length(podtyperaz[ComboBoxType.ItemIndex]) do
            begin
              ListBoxItem1 := TListBoxItem.Create(ComboBoxpodType);
              ComboBoxpodType.BeginUpdate;
              ListBoxItem1.Text := podtyperaz[ComboBoxType.ItemIndex, i];
              ComboBoxpodType.ListBox.AddObject(ListBoxItem1);
              ComboBoxpodType.EndUpdate;
              inc(i);
            end;

        ComboBoxpodType.ListItems[ComboBoxpodType.ItemIndex].FontColor :=
          TAlphaColorRec.Lime;
        ComboBoxpodType.ListBox.ListItems[ComboBoxpodType.ItemIndex].FontColor
          := TAlphaColorRec.Lime;
        ComboBoxpodType.ListBox.ListItems[ComboBoxpodType.ItemIndex]
          .StyledSettings := ComboBoxpodType.ListBox.ListItems
          [ComboBoxpodType.ItemIndex].StyledSettings -
          [TStyledSetting.ssFontColor];