[NCD]

Доброго времени суток!
Помогите пожалуйста разобраться с иконкой на TrayBar'е.
Я нашёл вот это :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button3Click(Sender: TObject); var   no: TNotifyIconData;   Hicon1: HIcon; begin   //Помещение иконки в Tray Bar   HIcon1:=ExtractIcon(Handle,'NsS.ico',0);   with no do   begin     cbSize:=Sizeof(TNotifyIconData);     Wnd:=Handle;     uID:=0;     UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;     SzTip:='NsS';     HIcon:=HIcon1;     //Определяемое пользователем сообщение     uCallBackMessage:=WM_USER+0;   end;   Shell_NotifyIcon(NIM_ADD,@no); end;

Всё работает, иконка появляется, но я не могу понять, как добавить какое-то действие или контекстное меню к иконке. Подскажите, если кто знает
Если существуют способы лучше, чем у меня, напишите...
Заранее спасибо!