#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private 
   
   public
     Str1,Str2,onMerge:THI_Event; \Тут точки Event,Var,Data
     procedure doMerge(var dt:TData; idx:word); \Тут точки Work
 end;

implementation

procedure THiAsmClass.doMerge; \Тут событие, при подаче на точку doMerge
  begin \Начало
    _hi_OnEvent(onMerge,ToStringEvent(Str1)+ToStringEvent(Str2)); \Соединение двух строк и выдача их через точку onMerge
  end; \Конец модуля
end.\Просто конец.