[vadim-narochnyi]

[quote=NumLock]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    ApplicationEvents1: TApplicationEvents;
    Label1: TLabel;
    Edit1: TEdit;
    procedure ApplicationEvents1Hint(Sender: TObject);
...
procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
  Label1.Caption:=Application.Hint;
end;

Спасибо, сделал так!