Como puedo hacer que en un StatusBar me ponga los Hint de la aplicacion

[[Nbull]]

Hola a tod@s, tengo una StatusBar con 4 paneles y quiero que en uno de ellos me ponga los hint de mi aplicación, es decir, que cuando pase por encima de un botón me pona lo que hay en el Hint del botón en el panel de la StatusBar.

He probado creandome un procedimiento privado al formulario principal, con el siguiente código:

Código Delphi [-]
procedure TForm1.ShowHint(Sender: TObject);
begin
  SB1.Panels[0].Text := Application.Hint;
end;

Pero no me funciona, por eso escribo este Post, haber si alguien me puede ayudar.

Gracias a o todos y un Saludo.