#pas
 res2 := (1 + 1);
  val3 := round(res2);
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0], val3);