Procedure TForm1.Ic(n:Integer;Icon:TIcon);

Var Nim:TNotifyIconData;

begin

 With Nim do

  Begin

   cbSize:=SizeOf(Nim);

   Wnd:=Form1.Handle;

   uID:=1;

   uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;

   hicon:=Icon.Handle;

   uCallbackMessage:=wm_user+1;

   szTip:='Хинт, который будет появляться у значка';

  End;

 Case n OF

  1: Shell_NotifyIcon(Nim_Add,@Nim);

  2: Shell_NotifyIcon(Nim_Delete,@Nim);

  3: Shell_NotifyIcon(Nim_Modify,@Nim);

 End;

end;

protected

 Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;

 

...

 

Procedure TForm1.ControlWindow(Var Msg:TMessage);

Begin

 IF Msg.WParam=SC_MINIMIZE then

  Begin

   Ic(1,Application.Icon);  // Добавляем значок в трей

   ShowWindow(Handle,SW_HIDE);  // Скрываем программу

   ShowWindow(Application.Handle,SW_HIDE);  // Скрываем кнопку с TaskBar'а

 End else inherited;

End;

Procedure TForm1.OnMinimizeProc(Sender:TObject);

Begin

 PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

End;

Procedure TForm1.Form1Create(Sender:TObject);

Begin

 Application.onMinimize:=OnMinimizeProc;

End;

protected

 Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;

 Procedure IconMouse(var Msg:TMessage); message WM_USER+1;

procedure TForm1.IconMouse(var Msg:TMessage);

Var p:tpoint;

begin

 GetCursorPos(p); // Запоминаем координаты курсора мыши

 Case Msg.LParam OF  // Проверяем какая кнопка была нажата

  WM_LBUTTONUP,WM_LBUTTONDBLCLK: {Действия, выполняемый по одинарному или двойному щелчку левой кнопки мыши на значке. В нашем случае это просто активация приложения}

                   Begin

                    Ic(2,Application.Icon);  // Удаляем значок из трея

                    ShowWindow(Application.Handle,SW_SHOW); // Восстанавливаем кнопку программы

                    ShowWindow(Handle,SW_SHOW); // Восстанавливаем окно программы

                   End;

  WM_RBUTTONUP: {Действия, выполняемый по одинарному щелчку правой кнопки мыши}

   Begin

    SetForegroundWindow(Handle);  // Восстанавливаем программу в качестве переднего окна

    PopupMenu1.Popup(p.X,p.Y);  // Заставляем всплыть тот самый TPopUp о котором я говорил чуть раньше

    PostMessage(Handle,WM_NULL,0,0);

   end;

 End;

end;