托盘问题（急！在线等候，100分相送）

Question

我用了CoolTrayIcon控件实现窗体最小化到系统托盘，在谭出菜单中“显示”项中加了代码:
procedure TfrmMain.N3Click(Sender: TObject);
begin
    if not Assigned(frmMain) then
    frmMain := TfrmMain.Create(Self);
    frmMain.Show;
    frmMain.WindowState := wsMaximized;
end;
现在的问题是我点完“显示”后，窗体最大化，然后再点“最小化”就没反应了，也不能最小化到系统托盘了，请各位帮忙解决！

Answer 1

......
Procedure TFrmMain.AppMiniMized(Sender:TObject);
begin
  ShowWindow(Application.Handle,SW_Hide);
end;

Answer 2

交换一下试试
    frmMain.WindowState := wsMaximized;
    frmMain.Show;