Сворачивание в трей при закрытии формы

[xxxsas]

есть код:

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   isTray = false;
   Application->OnMinimize = AppOnMinimize;
   Application->OnRestore  = AppOnRestore;
}

void __fastcall TForm1::AppOnMinimize(TObject *Sender)
{
    ShowWindow(Application->Handle, SW_HIDE);
    Visible = true;
    Tray1->Visible = true;

}

void __fastcall TForm1::AppOnRestore(TObject *Sender)
{
    ShowWindow(Application->Handle, SW_SHOW);
    Visible = true;

    SetForegroundWindow(Handle);
    Tray1->Visible = false;
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(isTray) Action = caFree;
  else {if (User_EDP->Caption == "")
  {Action = caNone;Form1->Hide();
            Tray2->Visible = true;} 
TRect r1,r2;
 r1 = Rect(Left+Width/20,Top+Height/20,Left+Width/20,Top+Height/20);
 r2 = BoundsRect;
 DrawAnimatedRects(Handle,IDANI_CAPTION,&r2,&r1);
       }
}

private:	// User declarations
        bool isTray;

код работает, но если 2 раза свернуть в трей путем закрытия формы, появляется ошибка: "Cannot Create System Shell Notification Icon".

1) Как эту ошибку можно исправить(избежать)?

2) Как можно перехватить сообщение о такой ошибке (допустим, что если выскакивает ошибка, программа повторяет действие) ?