Normalmente yo utilizo un TStatusBar (que para eso esta), pero bueno, con un TLabel deberia funcionar igual
Código:
procedure TfmMenu.FormCreate(Sender: TObject);
begin
Application.OnHint := ShowHint;
end;
procedure TfmMenu.ShowHint(Sender: TObject);
begin
Label1.Caption := Application.Hint;
end;
Lo que hago es definir un manejador del ShowHint, como tu, pero la diferencia es que se le tiene que asigar al Caption del TLabel (o el StatusBar), el Hint de la aplicacion.
Tambien puedes utilizar el componente TApplicationEvents (Delphi 6) e informar el evento OnHint (aunque, personalmente, me gusta mas lo del manejador)
Espero te sirva