delphi trayIcon控件，如何实现窗口最小化的时候到系统托盘

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;
 
  ......
   
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  inherited;
  if Msg.CmdType = SC_MINIMIZE then // 窗口收到最小化消息
  begin
    Application.Minimize; // 最小化程序
    ShowWindow(Application.Handle, SW_HIDE); // 隐藏任务栏图标
  end;
end;