procedure Assign(source: TPersistent); override;

procedure RectangularObject.Add(rect: RectangularObject); begin Bounds.Grow(rect.Bounds); end;