Balloonhint

Правда на VB, ну думаю суть ясна:
http://vbnet.mvps.org/index.html?code/subclass/shellnotifyballoontipclick.htm

Я с vb не знаком, каюсь(
Но посмотрев, я понял что не точно сформулировал вопрос.
Balloonhint я использую в TtrayIcon и сдаётся мне там эти wm_user+5 не будут работать, или я ошибаюсь

Ты ошибаешься.

Тогда вопрос,
почему так не работает?
Procedure ClickToBall(Var Msg:TMessage); message NIN_BALLOONUSERCLICK;
...
Procedure TForm1.ClickToBall(Var Msg:TMessage);
begin
Case Msg.LParam OF
WM_LBUTTONUP,WM_LBUTTONDBLCLK:Begin
ShowWindow(Application.Handle,SW_SHOW);
ShowWindow(Handle,SW_SHOW);
TrayIcon1.Visible:=False;
end;
end;//case
end;

Потому, что NIN_BALLOONUSERCLICK - это не сообщение.