procedure THiAsmClass.doWork;
  var i:integer;
  begin
  i:= ToIntegerEvent(int);
    If Odd(i) then _hi_OnEvent(onFalse, i) else  _hi_OnEvent(onTrue,i);
  end;

procedure THiAsmClass.doWork;
var i:integer;
  begin
  i:=ToIntegerEvent(int);
  Case Odd(i) of
    True : _hi_OnEvent(onFalse,i);
    False: _hi_OnEvent(onTrue,i);
  end;
end;