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