graf_dragbox

function graf_dragbox(

  gr_dwidth: SmallInt;

  gr_dheight: SmallInt;

  gr_dstartx: SmallInt;

  gr_dstarty: SmallInt;

  gr_dboundx: SmallInt;

  gr_dboundy: SmallInt;

  gr_dboundw: SmallInt;

  gr_dboundh: SmallInt;

  out gr_dfinishx: SmallInt;

  out gr_dfinishy: SmallInt

):SmallInt;