tray, не могу убрать с панели когда программа разворачивается

[Konstantin_ua]

Немогу убрать с панели когда программа разворачивается, а когда несколько раз сверну и разверну то на панели вообще печаль.
что нужно прописать что бы освободить трей, что то типа trey.free

код в OnCreate

TrayIcon := Application.Icon;
with tray do
 begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := F_Main.Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_NOTIFYTRAYICON;
   hIcon := TrayIcon.Handle;
   szTip := ('Натисніть для того щоб розгорнути');
 end;
 Shell_NotifyIcon(NIM_ADD, Addr(tray));

onDestroy

 try                              
  with tray do
  begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := F_Main.Handle;
   uID := 1;
  end;
   Shell_NotifyIcon(NIM_DELETE, Addr(tray));
  finally
   Application.Terminate;
  end;

процедура обработчика

procedure TF_Main.WMTRAYICONNOTIFY(var Msg: TMessage);
begin
  {обрабатываем события на иконке в трее}
  case Msg.LParam of
    WM_LBUTTONDOWN:  F_Main.Visible:=true;
    //WM_LBUTTONDBLCLK: Showmessage('done');{ваш код обработки события двойного нажатия на левую кнопку мыши}
    {WM_RBUTTONDOWN: {ваш код}
    {WM_RBUTTONDBLCLK: {ваш код}
  end;
end;

все разобрался
Shell_NotifyIcon(NIM_DELETE, Addr(tray)); в OnShow;