var
 farbe : TColor;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style := csOwnerDrawFixed;
  ComboBox1.Clear;
  ComboBox1.Items.Add('Rot');
  ComboBox1.Items.Add('Blau');
  ComboBox1.Items.Add('Grün');
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  case index of
   0 : farbe := clRed; //Erster Eintrag
   1 : farbe := clBlue; //Zweiter Eintrag
   2 : farbe := clGreen; //Dritter Eintrag
  end;
  ComboBox1.Canvas.Brush.Color := farbe;
  ComboBox1.Canvas.FillRect(Rect);
  ComboBox1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,ComboBox1.Items[index]);
end;