procedure AddObject(BOClassID: System.String, ObjID: System.String, Obj: System.Object, LifeTime: Integer); overload;