procedure THiAsmClass.do_in1;
begin
  _hi_OnEvent(out1, Data);
  _hi_OnEvent(out2, Data);
end;