CategoryButton no Delphi xe2

Olá Pessoal.

Tenho um aplicativo funcionando com CategoryButtons.
Estou tentando setar um ButtonItem do ButtonCategory como selectedItem
e alterar sua cor através do botão direito do Mouse.

Só que por default o método MouseDown da classe TCategoryButtons trabalha somente
com TMouseButton = mbLeft.

Estou tentando fazer um esquema no evento MouseDown, mas não está funcionando.

Se alguém puder me ajudar eu agradeço muito.

Ai vai o código:

Código:


procedure TfrmGIPClient.ctTasksMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
DownCategory : TButtonCategory;
DownButton : TButtonItem;
begin
DownCategory := TCategoryButtons(Sender).GetCategoryAt(X,Y);
DownButton := TCategoryButtons(Sender).GetButtonAt(X,Y,DownCategory);

if Button = mbRight then
begin
if DownButton <> nil then
begin
if (not Focused) and CanFocus then
Winapi.Windows.SetFocus(Handle);

if (DownButton is TButtonItem) then
begin
ShowMessage(DownButton.Caption);
TCategoryButtons(Sender).SelectedButtonColor := $00FFD5AA;
TCategoryButtons(Sender).UpdateButton(DownButton);
end;
end;
end;

end;