Claro que se puede.... faltaría más
Código Delphi
[-]
if (Resultado>=1) and (Resultado<=6) then
case resultado of
1: ........
2: ........
3: ........
End;
, Ya sé que no es lo que quería, pero el case solo va con expresiones simples. De otra forma se puede jugar:
Código Delphi
[-]
case resultado of
2,3,4,5,6:case Resultado of
2:....
3:...
end;
7: ........
8: ........
End;
Un saludo