procedure Save(var aStream: Tstream); virtual;

procedure Merge(var rect: RectangularObject); virtual;