Delphi implementation of the Service Locator pattern