[Casimiro Noteví]

Creo que puedes hacer algo así:

Código Delphi [-]
if x in [1..100] then
  showmessage('x vale entre 1 y 100');