Я получаю сообщение об ошибке после увеличения формы из значка в трее

Question

На Windows 10, когда я дважды щелкаю значок приложения в трее, я получаю исключение:

Невозможно удалить значок уведомления оболочки

Я заметил что ошибка возникает, когда моя иконка единственная в трее. Если, например, в трее есть другое приложение (например Диспетчер задач), то все в порядке.

Вот код, когда я дважды щелкаю значок. В рамке try except, чтобы получить сообщение, иначе все без исключения вылетает.

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
  try
    TrayIcon1.Visible := False;
    Show();
    WindowState := wsNormal;
    Application.BringToFront();
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;