1:
2:
3:
4:
5:
6:

procedure TForm1.ComboBox1ContextPopup(Sender: TObject);
begin
If (ComboBox1.ItemIndex>0) Or (ComboBox1.Text<>'')
Then ComboBox1.Color:=clRed
Else ComboBox1.Color:=clWindow;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

begin
  with vcBox.Canvas do begin
    FillRect(Rect);
    if not irgendwas then
      Font.Color := clRed
    else
      Font.Color := clBlack;
    if odFocused in State then
      Font.Color :=  clHighlightText;
    Pen.Style := psClear;
    TextOut(Rect.Left, Rect.Top, cBox.Items[Index]);
  end;
end;