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.