procedure Draw(canvas: TCanvas); virtual;

This is Draw, a member of class RectangularObject.