class procedure GetShortestSquaredDistanceTo(br1: RectangularObject; br2: RectangularObject; var distance: integer);

This is GetShortestSquaredDistanceTo, a member of class RectangularObject.