Проблемка с TCategoryPanelGroup в Delphi (XE 3)

[1kommunist]

Всем доброго времени суток! Хотелось бы спросить у Вас, ребята, кто сталкивался с компонентом TCategoryPanelGroup? я попробовал "потыкаться", но что-то не получилось. Вот, собственно, сам код: http://pastebin.com/wmuBqEzn
Над чем я "тыкался": я попробовал сделать "взаимное сворачивание" (т.е. когда тыкаешь на новую панельку, предыдущая панель сворачивается), но почему-то не работает... Подскажите пожалуйста, что я делаю не так? Покажите, пожалуйста, верный, на Ваш взгляд, вариант исполнения =)

P.S.: и, если Вас не затруднит, то, ещё подскажите пожалуйста, как кодово "прикрутить" анимацию (плавное сворачивание/разворачивание панельки) к данному компоненту. Пробовал я гуглить на эту тему - русскоязычная часть гугла этот компонент почти не затрагивает (ну или значит я так "хорошо" ищу. Да и по вышеуказанной проблемке я тоже пробовал гуглить - тоже ничего внятного не нашёл). =)

P.P.S.: если что - у меня Rad Studio XE 3 (если это что-то даст).