Delphi 的TSpeedButton按下和弹起效果

想达到这样的效果：

点击一下TSpeedButton按钮，按钮凹下去，再点击一下，按钮弹起恢复。

实现方法：

只要设置下述2个属性即可，不需要编码：

①AllowAllUp = True

②GroupIndex = 2   //设成任意非0的整数