[[egostar]]

Código Delphi [-]
var
  Form1: TForm1;
  Valor:Integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Valor of
    3,4: Shape1.Brush.Color := clRed;
    5,6: Shape1.Brush.Color := clYellow;
    7,8,9,10,11,12: Shape1.Brush.Color :=clGreen;
    else Showmessage('Este programa no soporta ese valor');
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Valor := StrtoInt(ComboBox1.Text);
end;

end.

Salud OS

Edito:

En el ComboBox solo pones los valores que quieras comparar