[NCD]

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

Код:

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;

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