Трей-контрол на delphi

// 1 - сообщение, которое будет приходить из трея
Const
   WM_TRAYICON = WM_USER + 1;
 
 
// 2 - Добавляем в класс формы кое что:
type
   TForm1 = class(TForm)
   // ...
   private
      { Private declarations }
      nid : TNotifyIconData; // Для этого понадобится добавить ShellApi в Uses
      procedure TrayIconHandler(var Msg : TMessage); message WM_TRAYICON;
  public
    { Public declarations }
  end;
 
// 3 - пишем этот самый TrayIconHandler:
 
procedure TForm1.TrayIconHandler(var Msg : TMessage);
begin
   if Msg.Msg = WM_TRAYICON then
   case Msg.LParam of
      WM_MOUSEMOVE:
      begin
         // Ага! Мыша прошла над иконкой в трее!!! Делай, что нужно
      end;
      WM_LBUTTONDOWN:
      begin
         // Нажали на иконку. Обрабатывай, как надо
      end;
   end;
end;
 
// 4 - добавляем иконку в трей, собственно
procedure TForm1.FormCreate(Sender: TObject);
begin
   with nid do
   begin
      cbSize := SizeOf(nid);
      Wnd := self.Handle;
      uID := 1;
      uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallbackMessage := WM_TRAYICON;
      hIcon := GetClassLong(self.Handle,GCL_HICONSM); // Иконку можешь загрузить по желанию
      StrPCopy(szTip, 'Это моя иконка!!!');
   end;
   Shell_NotifyIcon( NIM_ADD, @nid); // Вот оно, иконка должна появиться
end;

Shell_NotifyIcon (NIM_DELETE,@nid);