1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

uses
  CommCtrl;

var
  hTippWnd : HWND;

//
// aus dem Tooltipp-Tutorial
//
procedure AddToolTip(wnd: HWND; hInst: longword; lpText: pchar);
var
  ti : TToolInfo;
  r  : TRect;
begin
  if(wnd <> 0) and (GetClientRect(wnd,r)) then
    begin
      fillchar(ti,sizeof(TToolInfo),0);

      ti.cbSize   := sizeof(TToolInfo);
      ti.uFlags   := TTF_SUBCLASS or TTF_IDISHWND;
      ti.hwnd     := wnd;
      ti.uId      := wnd;
      ti.Rect     := r;
      ti.hInst    := hInst;
      ti.lpszText := lpText;

      SendMessage(hTippWnd,TTM_ADDTOOL,0,integer(@ti));
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  hTippWnd := CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, nil,
    TTS_ALWAYSTIP or TTS_NOPREFIX or WS_POPUP or TTS_BALLOON,
    integer(CW_USEDEFAULT), integer(CW_USEDEFAULT), integer(CW_USEDEFAULT),
    integer(CW_USEDEFAULT), self.Handle, 0, hInstance, nil);

  if(hTippWnd <> 0) then
    begin
      SetWindowPos(hTippWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or
        SWP_NOSIZE or SWP_NOACTIVATE);

      AddToolTip(Button1.Handle,hInstance,'Test-Balloon');
    end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DestroyWindow(hTippWnd);
end;