1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var X: Integer;
X := 10;
case X of
    1: begin
         ShowMessage('Eins');
       end;
   10: begin
         ShowMessage('Zehn');
       end;
  100: begin
         ShowMessage('Hundert');
       end;
  else
  begin
    ShowMessage('Kenn ich nicht!');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

case txt_Text.text of
  65 To 90, 97 To 122:
  begin
    ...
  end;
  48 to 57:
.......					

1:
2:
3:
4:

case X of
  1, 3, 5: begin end;
  6..100: begin end; // 6 bis 100
end;					

1:
2:
3:
4:

CASE X OF
  1,3 : ShowMessage('eins oder Drei');
  2,4..7: Showmessage('zwei oder irgendwas zwischen 4 & 7.');
END;					

1:
2:
3:

case x of
  1, 2, 5..9 : doSomething;
end;