procedure Draw(canvas: TCanvas); override;

This is Draw, a member of class RectangularObjectCollection.