Problem z tray'em pomocy

Witam
zacząłem dziełać programik na swoje potrzeby i chce by chował mi się do tray'a. Większość już mam w tej materii zrobione wykorzystałem do tego kod z gotowca
http://4programmers.net/Delphi/Gotowce/Jak_doda%C4%87_ikon%C4%99_do_traya
nawet lekko go zmodyfikowałem

procedure TForm1.WndProc(var Msg : TMessage);
  var
    p:TPoint;
  begin
    SetForegroundWindow(Handle);
    if (Msg.Msg=WM_USER+1) and (Msg.LParam=WM_RBUTTONDOWN) then
    begin
      GetCursorPos(p);
      PopupMenu1.Popup(p.x, p.y);
    end;
    if (Msg.Msg=WM_USER+1) and (Msg.LParam=WM_LBUTTONDOWN) then
    begin
      Form1.Show;
      ShowWindow(Handle,SW_NORMAL);
    end;
    inherited;
  end;

ale nie pisałbym gdyby wszystko śmigało jak należy, a problem polega na tym, że jak zwija mi się w tray'a to już kaplica nie mogę nic zrobić klikać mogę do woli myszką oboma przyciskami osobno i razem i tak nic się nie dzieje żadne menu się nie pojawia a jest.
W czym leży problem, gdzie czegoś brakuje.

ściągnij sobie TCoolTrayIcon