[roman]

Una variante:

Código Delphi [-]
if Resultado in [1..6] then
  case Resultado of
    1: .....
    2: .....
    3: .....
  end

// Saludos