Implementation of event bus pattern for Delphi XE