Speed Button que se quede down como en emule

[[Nbull]]

Hola a tod@s, el problemilla que tengo es que estoy intentando hacer una SpeedBar como la de emule, estoy programando en delphi7 y con los componentes RX.

He puesto una speedBar con speedButtons y lo que quiero es que cuando se pulse uno de estos botones se quede pulsado para mostrar el contenido de la ficha y que cuando se pulse otro botón el que estaba pulsado suba y se quede el otro he puesto el siguiente código pero no me funciona:

Código Delphi [-]
procedure TFPrincipal.SpbutonRedClick(Sender: TObject);
begin
  Spbutonred.Down:=true;
end;

No se si es que tengo que habilitar alguna otra propiedad antes de que el boton se pueda quedar pulsado.

Gracias y un saludo.