#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug,MyDLL,windows;

type
 THiAsmClass = class(TDebug)
   private

   public
   on_SomeFunc:THI_Event;
   function do_SomeFunc(var Data:TData; Index:word):integer;
   
 end;

implementation

function THiAsmClass.do_SomeFunc;
var 
s1:integer;
i:integer;
begin
i:=1;
s1:= SomeFunc(i);
_hi_onEvent(on_SomeFunc,s1)
end;

end.