wind_set

function wind_set(

  wi_shandle: SmallInt;

  wi_sfield: SmallInt;

  wi_sw1: SmallInt;

  wi_sw2: SmallInt;

  wi_sw3: SmallInt;

  wi_sw4: SmallInt

):SmallInt;

function wind_set(

  wi_shandle: SmallInt;

  wi_sfield: SmallInt;

  ptr: Pointer

):SmallInt;

function wind_set(

  wi_shandle: SmallInt;

  wi_sfield: SmallInt;

  gr: PGRECT

):SmallInt;