Свернуть прогу в tray

procedure TForm1.ApplicationMinimize(Sender : TObject);
begin
end;

procedure TfmMain.Tray;
//ñâåðíóòü â òðåé
var nid: TNotifyIconData;
begin
  with nid do
    begin
      cbSize:=SizeOf(TNotifyIconData);
      Wnd:=fmMain.Handle;
      uID:=1;
      uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallBackMessage:=WM_USER + 100;
      hIcon:=Application.Icon.Handle;
      StrPCopy(szTip,'GWswitch');
    end;
  Shell_NotifyIcon(NIM_ADD,@nid);
  fmMain.Hide;
end;
 
procedure TfmMain.IconCallBackMessage(var Mess:TMessage);
//âûçîâ ïðîãðàììû èç òðåÿ
begin
  case Mess.LParam of
    WM_LBUTTONDBLCLK:
      begin
        fmMain.Show;
        TrayIconClose();
      end;
  end;
end;
 
procedure TfmMain.TrayIconClose();
//óäàëèòü èêîíêó èç òðåÿ
var nid: TNotifyIconData;
begin
  with nid do
    begin
      cbSize:=SizeOf(TNotifyIconData);
      Wnd:=fmMain.Handle;
      uID:=1;
      uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallBackMessage:=WM_USER + 100;
      hIcon:=Application.Icon.Handle;
      StrPCopy(szTip,'GWswitch');
    end;
  Shell_NotifyIcon(NIM_DELETE,@nid);
end;

  ....
  public
    { Public declarations }
    procedure IconCallBackMessage(var Mess:TMessage); message WM_USER+100;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
    Application.ShowMainForm:=false;
end;

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
     DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,Rect(Width - 20, Height, Width - 10, Height+1000));
     Application.ShowMainForm:=false;
end;