TNotification в TThread (Windows 10)

[Satellite]

Имеется стандартный код вывода уведомления в потоке:

procedure TMyThread.Execute;
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationsForm.NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'Windows10Notification';
    MyNotification.Title := 'Windows 10 Notification #1';
    MyNotification.AlertBody := 'RAD Studio 10 Seattle';
    NotificationsForm.NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;

Проблема в том, что в потоке уведомление не срабатывает. С чем это связано, и как это можно завести?

Изменено 28 мая, 2016 пользователем Satellite

[mrseagull]

А не в потоке работает? Попробуй отравлять в  Synchronize

[Satellite]

4 минуты назад, mrseagull сказал:

А не в потоке работает? Попробуй отравлять в  Synchronize

В Synchronize заработало