Windows 10 TNotification Delphi 西雅图的内存泄漏?

Memory Leak in Windows 10 TNotification in Delphi Seattle?

我正在我的应用程序中实施 Windows 10 通知。然而,下面的代码(运行良好)显然给出了 1 个 TNotification 对象和 2 个字符串的备忘录泄漏,但我在块的末尾释放了对象:

aNotification := NotificationCenter.CreateNotification;

//-- If not assigned then must be Win 8.1 or below
if not assigned(aNotification) then
  exit;

try
  aNotification.Title := AlignMixVersionName + ' License';
  aNotification.AlertBody := aText;

  NotificationCenter.PresentNotification(aNotification);

finally
  aNotification.Free;
end;

我是在做傻事还是在执行通知时存在内存泄漏?

确实是TNotificationCenterDelegateActivated造成的泄密。在其 Create 中创建了 TNotification 参数的副本,但从未释放。

似乎一些负责此代码的开发人员对非 ARC 环境不是那么精通。