Hint in Statuszeile UND neben Button

[Micha]

Hint in Statuszeile UND neben Button

Wie stelle ich das an, dass der Hint in der Statuszeile und zugleich neben dem Button angezeigt wird.

Meine procure für die Statuszeile:

Delphi-Quellcode:

procedure Tfrm_main.ShowHint(Sender: TObject);
begin
 // Hint wird im Panel 1 angezeigt
  statusbar.Panels[1].Text := Application.Hint;
end;

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  Application.OnHint := MyHint;
  ShowHint           := True;
end;

Er zeigt mir zwar jetzt den Hint in der Statuszeile an, aber nicht mehr neben dem Button.

Hat jemand eine Lösung?