Evento OnMouseDown e adicionando images aos toolbuttons

Vocês já perceberam que em algumas aplicações, quando você clica em um button ele faz esse efeito:

Vamos aprender a fazer esse efeito...
1º) adicione o componente ToolBar (Win32)
2º) adicione adicione 2 ToolButtons.
3º) no tollbutton1 de um duplo click e coloque isso:
(entre o begin e o end)
ToolButton2.Down:= false;
ToolButton1.Down:= true;
4º) no tollbutton2 de um duplo click e coloque isso:
(entre o begin e o end)

ToolButton1.Down:= false;
ToolButton2.Down:= true; 

-----------------------------------------------------------------------------------------------------

Olha o efeito:

----------------------------------------------------------------------------------------------------

Agora vamos adicionar umas imagens nesses toolbuttons.

1º) Adiciona o componente ImageList (Win32)

2º) Configura o ToolBar... Siga a imagem:

Depois configura o "ImageList"... Siga a imagem:

Agora vamos escolher as imagens... Dê um duplo click no "ImageList"... Irá abrir uma caixa de dialogo
Siga a imagem:

---------------------------------------------------------------------------------------------
Olha como ficou o meu projeto: