Add(Memory,1140107,392,147)
{
}
Add(Math,9312059,343,147)
{
 OpType=39
 link(onResult,1140107:doValue,[])
}

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;