Scheduler.Run(
procedure(const AScheduledEvent: IkbmMWScheduledEvent)
begin
end).SynchronizedAfterRun(
procedure(const AScheduledEvent: IkbmMWScheduledEvent)
begin
end).WhenException(
procedure(const AException: Exception)
begin
ApplicationShowException(AException);
end).Activate;