#pas
unit HiAsmUnit;
interface
uses KOL,Share,Debug;
type
 THiAsmClass = class(TDebug)
   private
   public
     x,y:THI_Event;
     onAdditor:THI_Event;
     procedure doAdditor(var dt:TData; idx:word);
 end;
function additor(x,y:double):double; stdcall;
implementation
function additor; external 'Названия DLL файлаа ..с расширением или без (проверял работает...)' name 'Имя функции?';
procedure THiAsmClass.doAdditor;
var dx,dy: double;
begin
  dx := ReadReal(dt, x, 0.0);
  dy := ReadReal(dt, y, 0.0);
  _hi_OnEvent(onAdditor, additor(dx,dy));
end;
end.