〓〓〓如何实现　在点击任务栏窗口，使窗体最小化后隐藏？

我想让窗体最小化以后缩到“托盘”。
现在点击窗体上的“最小化”按钮可以在自定义过程Minimize中隐藏窗体和放入托盘的代码。
但对点击任务栏窗口，让窗体最小化却不起做用。怎么做能实现　不论是窗休上“最小化”按钮还是点“任务栏”标题都能让窗休隐藏，代码应该写在哪里？
procedure Tfm_main.Minimize(var mess: TWMNCHitMessage);
begin
  if Mess.Hittest=htReduce then
  begin
  {Self.Hide;//隐藏任务栏    //托盘图标---放入托盘过程
  end