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