TrayIcon + PopupMenu - menu nie znika automatycznie

Witam !
Żeby umieścić ikonkę programu w trayu użyłem tego szablonu: http://www.aplus.aplus.pl/pliki/traytest.rar Niestety dopiero teraz zauważyłem, że gdy otwieram to menu z ikonki na pasku start i chce je ukryć klikając w dowolne inne miejsce ekranu to ono nie znika :/
Dopiero, kiedy klikne w niekatywny element (Enabled=false) tego menu a dopiero później w inne miejsce ekranu to jest tak jak być powinno (znika).

Gdy ustawiłem PopupMenu z tego samego komponentu dla głównej formy to było dobrze, co znaczy, że coś nie tak jest z podanym wcześniej źródłem :(

Czy mógłbym Was prosić o pomoc przy tym zagadnieniu ?

Zainstaluj sobie komponent CoolTrayIcon.

Ech... Miałem nadzieje, że nie będe musiał tego instalować... CoolTrayIcon jest po prostu duży :P
Ale i tak dzięki

CoolTrayIcon jest po prostu duży

Jak bardzo duży? Na cały ekran?
On u mnie zajmuje 16x16 pix.
Nie wydziwiaj chłopcze. Albo znajdziesz w sobie jakieś samozaparcie do programowania, albo idź z kolegami na pizzę do baru.

Czlek nie wydziwia, a zadaje pytanie :)

zamien

procedure TForm1.ShowThePopup;
var
  CurPos: TPoint;
begin
  GetCursorPos(CurPos);
  PopupMenu1.Popup(CurPos.x, CurPos.y);
  PostMessage(Self.Handle, WM_NULL, 0, 0);
end;

na cos takiego

procedure TForm1.ShowThePopup;
var
  CurPos: TPoint;
begin
  GetCursorPos(CurPos);
  SetForegroundWindow(Handle);
  PopupMenu1.Popup(CurPos.x, CurPos.y);
  PostMessage(Self.Handle, WM_NULL, 0, 0);
end;

powinno dzialac (dosc czesty blad).

Dziękuje, reichel. Jesteś wielki [browar]

btw. Z tego co pamiętam to w przykładach w downloadzie też był ten błąd...