主窗体添加以下过程

procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType=SC_MINIMIZE then
  begin
    ShowWindow(Handle,SW_HIDE);
  end
  else inherited;
end;