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