#pas

procedure THiAsmClass.doWork;
begin
  _hi_OnEvent(onEvent, THiAsmClass.CreateHash(toString(Data)));
end;