procedure ScaleToFitSquare(s: integer);

This is ScaleToFitSquare, a member of class BitmapBuffered.