TStatusbar

[nenufer]

Hola a tod@s!!! Vereis, estoy haciendo una aplicacion Mdi, en el form que es Mdiform tengo:
Un toolbar con 3 botones, 1 Statusbar con dos paneles, en uno de estos paneles me gustaria mostrar,cuando paso el raton por cada boton,el caption del boton. Como si fuera un hint. Pero que salga en el Statusbar.
He probado

Código Delphi [-]
if x < boton.with then
statusbar.panels[1].text := boton.caption
else
statusbar.panels[1].text := '';

Esto lo tengo todo en el mousemove del boton, pero lo que me hace es que si que me pone en la barra del statusbar el caption, pero cuando ya no estoy encima del boton no se queda vacio, sino que sigue el caption.

Si alguien me pude ayudar,gracias de antemano