procedure Load(var aStream: Tstream); virtual;

This is Load, a member of class RectangularObject.