在Delphi中，"case of"語句用于根據一個表達式的值選擇不同的代碼分支。下面是一個示例：
var
input: Integer;
begin
Writeln('請輸入一個數字：');
Readln(input);
case input of
1:
Writeln('輸入的是1');
2, 3:
Writeln('輸入的是2或3');
4..10:
Writeln('輸入的是4到10之間的數字');
else
Writeln('輸入的是其他數字');
end;
Readln;
end.
在上面的代碼中，根據用戶輸入的數字，"case of"語句會選擇相應的代碼分支進行執行。在每個case后面的常數或范圍表示了可能的輸入值。如果輸入值與某個case匹配，則執行該case后面的代碼。如果輸入值與所有的case都不匹配，則執行else語句后面的代碼（如果存在else語句）。
需要注意的是，case的常數或范圍必須是相同的類型，并且不能重復。在上述示例中，1、2、3、4…10都是整數類型。
