1:

ComboBox1.Items.Strings[index] := 'Das[blau] ist[gelb] ein[rot] Test[grün].';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ComboBox1, ComboBox1.Canvas do begin
    Font.Color  := clWhite;  // SchriftFarbe
    Brush.Color := clGreen;  // HintergrundFarbe
    FillRect(Rect);          // Hintergrund zeichnen
    TextOut(Rect.Left+2,Rect.Top+1,
            copy(Items[index],1,Pos('(',Items[index])-1)); // Textausgabe

    Font.Color  := clWhite;  // SchriftFarbe
    Brush.Color := clMaroon; // HintergrundFarbe
    TextOut(Rect.Left+2+TextWidth(copy(Items[index],1,Pos('(',Items[index])-1)),
            Rect.Top+1,copy(Items[index],Pos('(',Items[index]),
            Length(Items[index]))); // Textausgabe
  end;
end;