#pas
var 
s1:string;
begin
s1:='Привет!';
SomeFunc(s1);
end;

#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug,MyDLL,windows;

type
 THiAsmClass = class(TDebug)
   private

   public
   on_SomeFunc:THI_Event;
   procedure do_SomeFunc(var _Data:TData; Index:word);
   
 end;

implementation

procedure THiAsmClass.do_SomeFunc;
var 
s1:string;
begin
s1:='Привет!';
s1:= SomeFunc(s1);
_hi_onEvent(on_SomeFunc,s1)
end;

end.