Delphi-PRAXiS - Delphi Baloon-Hint im TrayIcon

Hey,

Also ich versuche gerade mit einem Hint komponenten ein Baloon-Hint auf ein Tray-Icon zu machen bzw. anzeigen zu lassen.
Also in etwa so wie da:

http://www.delphipraxis.net/internal...ht=ballon+tray

Also so ruft man den hint normalerweise auf:

Delphi-Quellcode:

			        Hint.ShowTextHintBalloon(bmtInfo, 'How is the test?',

      'WHOA! Am i looking frightnng for you? :)',

      300, 10, 10, self, TALHintBalloonArrowPosition(1));

Also self ist so zu sagen das "handle". Ich könnte da jetzt auch Button1 oder so rein machen.
So nun will ich das aber auf mein TrayIcon klatschen, nur bekomm das nicht hin.
Der Hint will ein TControl als handle.

Hier zeig ich euch mal wie ich das TrayIcon erstell:

Delphi-Quellcode:

			  ...

WM_ICONTRAY  = WM_USER + 1;  // bei mir global

TrayIconData: TNotifyIconData;  // auch global

procedure TForm1.FormCreate(...)

begin

  with TrayIconData do

  begin

    cbSize := SizeOf(TrayIconData);

    Wnd := Handle;

    uID := 0;

    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;

    uCallbackMessage := WM_ICONTRAY;

    hIcon := Application.Icon.Handle;

    StrPCopy(szTip, Application.Title);

      ShowWindow( Application.Handle, SW_HIDE );

  SetWindowLong( Application.Handle, GWL_EXSTYLE,

                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or

                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

  ShowWindow( Application.Handle, SW_SHOW );

  end;

  Shell_NotifyIcon(NIM_ADD, @TrayIconData);

...

end;

Nun wenn ich aber WM_ICONTRAY oder TrayIconData als TControl-handle beim Hint component benütze geht es natürlich nicht.
Irgend ne idee wie ich das machen könnte?