case I of

1..5: Caption := "Low";

6..9: Caption := "High";

0, 10..99: Caption := "Out of range";

else

Caption := "";

end;

===============================

if I in [1..5] then

Caption := "Low"

else if I in [6..10] then

Caption := "High"

else if (I = 0) or (I in [10..99]) then

Caption := "Out of range"

else

Caption := "";

==================================

case MyColor of

Red: X := 1;

Green: X := 2;

Blue: X := 3;

Yellow, Orange, Black: X := 0;

end;