type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private Deklarationen }
  public
    procedure DisplayHint(Sender: TObject);
  end;

var

  Form1: TForm1;
implementation
{$R *.DFM}

{ Hier ist die Implementierung der Ereignisbehandlungsroutine für OnHint. }

{ Der aktuelle Hinweistext der Anwendung wird in der Statusleiste angezeigt. }
procedure TForm1.DisplayHint(Sender: TObject);
begin
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;

{ Hier ist die Ereignisbehandlungsroutine für OnCreate des Formulars. }

{ Die Ereignisbehandlungsroutine für OnHint der Anwendung wird zur Laufzeit }
{ zugewiesen, da Application im Objektinspektor nicht verfügbar ist. }
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
end;

UNIT aUnit1;

INTERFACE

USES
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   ComCtrls,
   StdCtrls;

TYPE
   TForm1 = CLASS(TForm)
      Button1: TButton;
      StatusBar1: TStatusBar;
      PROCEDURE FormMouseMove(Sender: TObject; Shift: TShiftState; X,
         Y: Integer);
   PRIVATE
    { Private-Deklarationen }
   PUBLIC
    { Public-Deklarationen }
   END;

VAR
   Form1 : TForm1;

IMPLEMENTATION

{$R *.DFM}

PROCEDURE TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer); // x,y = MousePos in Pixel
VAR
   aRect : TRect;
BEGIN
   aRect := Button1.BoundsRect; // Größe des Buttons
   IF (x >= aRect.Left) AND
      (x <= aRect.Right) AND
      (y >= aRect.Top) AND
      (y <= aRect.Bottom) THEN
      StatusBar1.SimpleText := Button1.Hint // Hint in Statusbar zeigen
   ELSE
      StatusBar1.SimpleText := ''; // Hint in Statusbar löschen
END;
END.

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
end;

procedure TMainForm.DisplayHint(Sender: TObject);      
begin
  StatusBar.SimpleText := GetLongHint(Application.Hint);
end;