Всплывающая подсказка в трее в C++ Builder

TrayIcon1->ShowBalloonHint();

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define WM_NOTIFYICONMSG (WM_USER + 1)
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  OldProc = WindowProc;
  WindowProc = NewProc;
  Application->OnMinimize = OnMinimizeProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnMinimizeProc(TObject *Sender)
{
  PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewProc(TMessage& Message)
{
  if(Message.WParam == SC_MINIMIZE)
    {
      AddIcon();
      ShowWindow(Handle, SW_HIDE);
      ShowWindow(Application->Handle, SW_HIDE);
    }
  if(Message.LParam == WM_LBUTTONUP)
    {
      RemoveIcon();
      ShowWindow(Application->Handle, SW_SHOW);
      ShowWindow(Handle, SW_SHOW);
    }
  if(Message.LParam == WM_MOUSEMOVE)
    ModifyIcon();
  OldProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AddIcon()
{
  NOTIFYICONDATA nf;
  nf.cbSize = sizeof(NOTIFYICONDATA);
  nf.uID = 1;
  nf.hWnd = Handle;
  nf.uFlags = NIF_ICON | NIF_MESSAGE;
  nf.hIcon = Application->Icon->Handle;
  nf.uCallbackMessage = WM_NOTIFYICONMSG;
  Shell_NotifyIcon(NIM_ADD, &nf);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RemoveIcon()
{
  NOTIFYICONDATA nf;
  nf.cbSize = sizeof(NOTIFYICONDATA);
  nf.uID = 1;
  nf.hWnd = Handle;
  nf.hIcon = Application->Icon->Handle;
  Shell_NotifyIcon(NIM_DELETE, &nf);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ModifyIcon()
{
  NOTIFYICONDATA nf;
  nf.cbSize = sizeof(NOTIFYICONDATA);
  nf.uID = 1;
  nf.hWnd = Handle;
  nf.uFlags = NIF_ICON | NIF_MESSAGE | NIF_INFO;
  nf.hIcon = Application->Icon->Handle;
  nf.uCallbackMessage = WM_NOTIFYICONMSG;
  strcpy(nf.szInfo, "Привет! :)");
  strcpy(nf.szInfoTitle, "Сообщение");
  nf.dwInfoFlags = NIIF_INFO;
  nf.uTimeout = 5000;
  Shell_NotifyIcon(NIM_MODIFY, &nf);
}
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
        void __fastcall OnMinimizeProc(TObject *Sender);
        TWndMethod OldProc;
        void __fastcall NewProc(TMessage& Message);
        void __fastcall AddIcon();
        void __fastcall RemoveIcon();
        void __fastcall ModifyIcon();
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif