Icono de un TTrayIcon

[Angel.Matilla]

Gracias por las respuestas. Dando vueltas encontré la solución; puede que no sea la mejor, pero funciona.

Código PHP:

void __fastcall TForm1::FormActivate(TObject *Sender)
{
     TImageList *list = new TImageList(Application->Icon->Width, Application->Icon->Height);

     try
     {
          list->AddIcon(Application->Icon);
          TrayIcon1->Icons     = list;
          TrayIcon1->IconIndex = 0;
     }
     __finally
     {
          delete list;
     }
}
//--------------------------------------------------------------------------- 


No obstante le echaré un ojo a tu componente.