DELPHI自带例子Demos\MIDAS\Pooler（李维《系统篇》中关于Session Pooling）中2个问题？

对DELPHI自带例子Demos\MIDAS\Pooler中
我有2个问题要问：
（1）
Demos\MIDAS\Pooler中有procedure CheckButtonActive(DataSet: TDataSet);
但FORM中根本没有CheckButton控件，CheckButton控件在那里？
（2）李维《系统篇》中第4章关于Session Pooling中（4-83页）说通过学习此例子可以学习TCriticalSection和Semaphore对象的用法！ 但程序里哪儿有TCriticalSection和Semaphore对象？