Fórum Combobox delphi #551247

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Canvas.FillRect(Rect);
  if Index in [1..10] then
    ComboBox1.Canvas.Font.Color := clBlue
  else if Index in [11..20] then
    ComboBox1.Canvas.Font.Color := clGreen
  else if Index in [21..30] then
    ComboBox1.Canvas.Font.Color := clRed
  else if Index in [31..40] then
    ComboBox1.Canvas.Font.Color := clPurple;
  ComboBox1.Canvas.TextOut(Rect.Left, Rect.Top, ComboBox1.Items[Index]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style := csOwnerDrawFixed;
end;