{ It displays the application's current hint in the status bar }
procedure TForm1.acAppEventsHint(Sender: TObject);
begin
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;