Проблема с иконкой в трее

 
procedure TForm1.WMICON (var msg: TMessage); // приходит при щелчке по иконке
var  P: TPoint;
begin
     case msg.LParam of
     WM_LBUTTONDOWN: // левая кнопка мыши:
     begin  // открыть..
          SetForegroundWindow(Application.Handle);
          OpenAppl;
          DeleteTrayIcon(1);
     end;
     WM_RBUTTONDOWN: // правая кнопка мыши:
     begin  // меню..
         GetCursorPos(p);
         SetForegroundWindow(Application.Handle);
         Form1.PopupMenu1.Popup(p.X-50,p.Y);
     end;
     end;
end;
procedure TForm1.CreateTrayIcon(n:integer);
var  NIdata :TNotifyiconData;
begin
     with NIdata do
     begin
       cbSize:=SizeOf(TNotifyiconData);
       Wnd:=Self.Handle;
       uID:=n;
       uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
       uCallBackMessage:=WM_MYTRAYNOTIFY;
       hicon:=Application.Icon.Handle;
       szTip:='Подсказка всплывающая';
     end;
     ShellAPI.Shell_NotifyIcon(NIM_ADD,@NIdata);
end;
procedure TForm1.DeleteTrayIcon(n:integer);
var  NIdata :TNotifyiconData;
begin
     with NIdata do
     begin
       cbSize:=SizeOf(TNotifyiconData);
       Wnd:=Self.Handle;
       uID:=n;
     end;
     ShellAPI.Shell_NotifyIcon(NIM_DELETE,@NIdata);
end;
procedure TForm1.HideTray;  // свернуть приложение в трей
begin
     Application.ShowMainForm:=false;
     ShowWindow(Application.Handle, SW_HIDE);
     ShowWindow(Application.MainForm.Handle, SW_HIDE);
     CreateTrayIcon(1);
end;
procedure TForm1.WMSYSCOMMAND(var Msg : TMessage); // обр-ка сворачивания формы
begin
     inherited;
     if (Msg.wParam=SC_MINIMIZE) then
     begin
         HideTray;
     end;
end;
procedure TForm1.d1Click(Sender: TObject);  // Открыть
begin
     OpenAppl;
     DeleteTrayIcon(1);
end;
procedure TForm1.N2Click(Sender: TObject);  // Выход
begin
     DeleteTrayIcon(1);
     Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
     if not ShowOnce then
     begin
        CreateTrayIcon(1);
     end;
end;

TreeМew1.Visible := True;
Form1.Visible := False;

Application.ShowMainForm:=false;

procedure TForm1.FormCreate(Sender: TObject);
begin
     if not ShowOnce then
     begin
        CreateTrayIcon(1);
     end;
end;

SetForegroundWindow(Application.Handle);

SetForegroundWindow(Application.MineForm.Handle); //(или Form1.Handle)