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