TrayIcon удалить ИКОНКУ

[Манжосов Денис :)]

В том и дело что только иконку. Пишу такой код:

type
  TNotifyIconData = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallBackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..63] of AnsiChar;
  end;

Создаю две процедуры:

    procedure CreateTray();
    procedure DeleteTray();

Соответственно их код:

procedure TMainForm.CreateTray;
begin
  with niData do
    begin
      cbSize:=sizeOf(TNotifyIconData);
      Wnd:=Self.Handle;
      uID:=1;
      uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallBackMessage:=WM_USER+123;
      hIcon:=Application.Icon.Handle;
      szTip:='Speed';
    end;
   Shell_NotifyIcon(NIM_ADD, @nidata);
end;

procedure TMainForm.DeleteTray;
begin
  with niData do
    begin
      cbSize:=Sizeof(TNotifyIconData);
      Wnd:=Handle;
      uID:=0;
    end;
  Shell_NotifyIcon(NIM_Delete, @niData);
end;

Также я использую эту процедуру:

procedure TMainForm.WMICON(var Msg: TMessage);
var
P: TPoint;
begin
 case msg.LParam of
 WM_RBUTTONDOWN:
   begin
     GetCursorPos(p);
     SetForegroundWindow(Application.MainForm.Handle);
     pMenu.Popup(P.X, P.Y);
   end;
 WM_LBUTTONDBLCLK:;
 end;
end;

Как видите у меня есть меню. Вот только сегодня решил сам без этих балующих компонентов сделать Tray вроде всё ясно, но может я ещё что-то не догоняю. Итак... К примеру я нажимую на Button1:

Createtray();
Hide;

Затем для Button2 след.код:

Deletetray();
Show;

Deletetray не работает, тоесть иконка остаётся, а при нажатии на иконку также появляется меню. Вопрос наверное уже догадались какой. Как удалить то всё таки полностью твою программу из трея...?
Заранее спасибо за помощь...

[NikLik]

Посмотри, должно быть понятно.