xe5 新的任务栏提示 气泡提示 TrayIcon

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    TrayIcon1->ShowBalloonHint();
    TrayIcon1->Animate = true;
    TrayIcon1->BalloonFlags = bfInfo;
    TrayIcon1->BalloonHint = "program starting";
    TrayIcon1->BalloonTimeout = 1000;
    TrayIcon1->BalloonTitle = "title";
    TrayIcon1->Hint = "This is the hint";
    // TrayIcon1->Icons = ImageList1;
    TrayIcon1->Visible = true;

}