Вот у меня проблема - не могу добавить иконку в ситем трэй из своей проги.  Кстати, прога не имеет своего окна. Из другой проги, с формой, все нормально.
Так чё, это все из-за окна, вернее из-за его отсутствия.. да?

А примерчик твоего кода можно?

конечно он не точный, но...

program myprog;

uses
 Messages, Windows, ShellAPI; //может еще че-нить...

type
 TNotifyIconData = record
   //здеся все как в справке Windows SDK...
 end;

var
 MYWM:LongInt;
 tnid":TNotifyIconData;

begin
 //это для обратного сообщения от иконки
 MYWM:=RegisterWindowsMessage(pchar('MYWM');  
 with tnid do begin
   //заполняю все поля, все как в проге с формой - которая
  //иконку нормально добавляет
  //только место Handle окна, добавляю HInstance;
 end;
 Shell_NotifyIcon(NIM_ADD, @tnid);
 while GetMessage(.........) do begin
   тра ля ля....
   TranslateMessage(.......);
   DispatchMessage(.......);
 end;
end;