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:       class constructor Create;
    public
      class function CreateInstance(const AClass : TClass) : IInterface;
    end;
  
  
  implementation
  
  
negative.code: 
    //Makes sure virtual constructors are called correctly. Just using a class reference will not call the overriden constructor!
    //See http://stackoverflow.com/questions/791069/how-can-i-create-an-delphi-object-from-a-class-reference-and-ensure-constructor
  
    TClassActivator = class
    private
      class var
  