Иконка в трее

void __fastcall TForm1::TrayIcon1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbLeft)
//если левой клацаем
{
}
else
{
//тут прописываем, если правой...
}
}

//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrayIcon1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(Button == mbLeft)
    {TrayIcon1->PopupMenu = PopupMenu1;
     TrayIcon1->PopupMenuOn = imLeftClickUp;
     //левая
    }
    else
    if(Button == mbRight)
    { TrayIcon1->PopupMenu = PopupMenu2;
      TrayIcon1->PopupMenuOn = imRightClickUp;
    //правая
    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::TrayIcon1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    if(Button == mbLeft)//левая
    {
    TrayIcon1->PopupMenu = PopupMenu2;
    TrayIcon1->PopupMenu->Popup(X,Y);
    }
    else
    if(Button == mbRight)//правая
    {
    TrayIcon1->PopupMenu = PopupMenu1;
    }
}