anchor.diff:    if not FContainerInfo.TryGetValue(key,o) then
     begin
       rego := TIoCRegistration<TInterface>.Create;
  -    rego.IInterface := pInfo;
       rego.ActivatorDelegate := nil;
  -    rego.ImplClass := nil;
       rego.IsSingleton := true;
       rego.Instance := instance;
       FContainerInfo.Add(key,rego);
  
positive.code:     procedure Clear;
  
      property RaiseIfNotFound : boolean read FRaiseIfNotFound write FRaiseIfNotFound;
  
  
  
    end;
  
    EIoCException = class(Exception);
  
negative.code:     //If the instance hasn't been instanciated then we need to lock and instanciate
      MonitorEnter(container);
      try
        if registration.ActivatorDelegate <> nil then
        begin
          resolvedInf := registration.ActivatorDelegate();
  
  