#pas
 procedure THIMath._work_doOperation42;{Floor 2011.08.25 Tad}
 var x: double;
begin
  x := ReadReal(_Data,_data_Op1,_prop_Op1);
  _Err := false;
  Res := Trunc(x);
  If Res > x then Res := Res - 1;
     _hi_OnEvent(_event_onResult,integer(Res));
end;

 procedure THIMath._work_doOperation43;{Ceil 2011.08.25 Tad}
 var x: double;
begin
  x := ReadReal(_Data,_data_Op1,_prop_Op1);
  _Err := false;
  Res := Trunc(x);
  If x > Res then Res:=Res + 1;
     _hi_OnEvent(_event_onResult,integer(Res));
end;