graf_shrinkbox

function graf_shrinkbox(

  gr_sfinx: SmallInt;

  gr_sfiny: SmallInt;

  gr_sfinwidth: SmallInt;

  gr_sfinheight: SmallInt;

  gr_sstx: SmallInt;

  gr_ssty: SmallInt;

  gr_sstwidth: SmallInt;

  gr_sstheight: SmallInt

):SmallInt;