procedure THiAsmClass.doWork;
begin
 _hi_OnEvent(onEvent,'1');
 Sleep(1000);
 _hi_OnEvent(onEvent2,'2');
end;