在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都是整数类型。
