托盘显示隐藏代码解决方法

托盘显示隐藏代码
下面是哪错了 红色部分不执行

procedure TFormMian.ActMianExecute(Sender: TObject);
begin
if FormMian.Showing then
  begin
  Z1.Caption:='显示主界面';
  Application.Minimize();
  ShowWindow(application.Handle,SW_HIDE);
  end
else
begin
Z1.Caption:='隐藏主界面';
ShowWindow(application.Handle,SW_SHOW);
Application.Restore();
end
end;

[解决办法]
jf