anchor.diff:  
     case pInfo.Kind of
       //Create our proxy object, which will implement our object T
  -    tkClass : proxy := TObjectProxy<T>.Create(Result.FAutomocker, false);
  +    tkClass : proxy := TObjectProxy<T>.Create(Result.FAutomocker, false, ACreateObjectFunc);
       //Create our proxy interface object, which will implement our interface T
       tkInterface : proxy := TProxy<T>.Create(Result.FAutomocker, false);
     end;
  
positive.code:   Result := Create(nil);
  end;
  
  class function TMock<T>.Create(const AAutoMock : IAutoMock): TMock<T>;
  var
    proxy : IInterface;
    pInfo : PTypeInfo;
  
negative.code: begin
    pInfo := TypeInfo(T);
  
    mock := TMock<T>.Create(FAutoMocker, nil);
    FAutoMocker.Add(pInfo.NameStr, mock.FProxy);
  
    result := mock;
  