如何得到枚举类型的元素数量？

Question

TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);
可以看出，TFormBorderStyle 定义了 6 种值。如何用一个表达式，获取 TFormBorderStyle 中定义的元素数量（也就是 6 ）？

Answer 1

ShowMessage(IntToStr(Integer(High(TFormBorderStyle))));

Answer 2

ShowMessage(IntToStr(Integer(High(TFormBorderStyle))+1));