1   unit Unit1;
2   
3   interface
4   
5   uses
6     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7     Dialogs, StdCtrls;
8   
9   type
10    TForm1 = class(TForm)
11      Button1: TButton;
12      Button2: TButton;
13      Memo1: TMemo;
14      Button3: TButton;
15      procedure FormCreate(Sender: TObject);
16    private
17      { Private declarations }
18    public
19     procedure ShowHint(Sender: TObject);
20      { Public declarations }
21    end;
22  
23  var
24    Form1: TForm1;
25  
26  implementation
27  
28  {$R *.dfm}
29  
30  procedure TForm1.FormCreate(Sender: TObject);
31  begin
32  application.OnHint:=ShowHint;
33  Button1.Hint:='This is Button 1';
34  Button2.Hint:='This is Button 2';
35  Button3.Hint:='This is Button 3';
36  Memo1.Hint:='This is Memo1';
37  
38  end;
39  
40  procedure TForm1.ShowHint(Sender: TObject);
41  begin
42  Caption:= application.Hint;
43  end;
44  
45  end.