V>procedure TObj4.BeforeDestruction; V>begin V> inherited; V> Obj1 := nil; V> Obj2 := nil; V> Obj3 := nil; V>end; V>