procedure THIMath._work_doOperation39;{max}
var
  op1:real;
begin
  op1 := ReadReal(_Data,_data_Op1,_prop_Op1);
  Res := ReadReal(_Data,_data_Op2,_prop_Op2);
  _Err:=false;
  if op1>Res then Res:=op1;
  if _prop_ResultType = 0 then
    _hi_OnEvent(_event_onResult,integer(Round(Res)))
  else _hi_OnEvent(_event_onResult,Res);
end;