Res := (((x - mi) mod (ma - mi)) + (ma - mi)) mod (ma - mi) + mi;
  _hi_CreateEvent(_Data,@_event_onWrap,Res);