Verschiedene Farben einzelner Items in ComboBox

[sebastian1979]

Vielen Dank für Eure Hilfe, vor allem für den INDEX
habe es jetzt wie folgt hinbekommen:

Delphi-Quellcode:

procedure TMHauptmaske.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var  holdColor: TColor;
begin
  holdColor := combobox1.Canvas.Brush.Color;
  if combobox1.Items.Strings[index] = 'test1' then
  combobox1.canvas.Brush.Color := clred;
  if combobox1.Items.Strings[index]  = 'test2' then
  combobox1.canvas.Brush.Color := clyellow;
  if combobox1.Items.Strings[index]  = 'test3' then
  combobox1.canvas.Brush.Color := clgreen;
  combobox1.canvas.Font.Color := clblack;
  combobox1.Canvas.FillRect(rect);
  combobox1.Canvas.TextOut(Rect.left, Rect.top, combobox1.Items[index]);
  combobox1.canvas.brush.Color := holdColor;
end;