const

AAA=100;
BBB=200;

case i of
AAA:...;
BBB:...;
end;

这样没问题。

但是，如果：

const
AAA:Word=100;
BBB:Word=100;

则在case里，编译都通不过。