unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private
   public
 end;

 TTEst = class
 a:string;
 b:string;
   private
   public                            
   onEvent: THI_Event;                                
   Procedure doCalc(var _Data:TData; Idx:Word); 
 end;
 
 
implementation
Procedure TTEst.doCalc;
 begin
 _hi_OnEvent(onEvent,'Test');
 end;
end.

Add(InlineCode,15165760,189,266)
{
 WorkPoints=#6:doCalc|
 EventPoints=#3:yes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|5: end;|0:|14: TTEst = class|10: a:string;|10: b:string;|10:   private|37:   public                            |50:   Yes: THI_Event;                                |48:   Procedure doCalc(var _Data:TData; Idx:Word); |5: end;|1: |1: |14:implementation|23:Procedure TTEst.doCalc;|6: begin|26: _hi_OnEvent(yes,'erser');|5: end;|4:end.|
 link(yes,13677077:doText,[])
}
Add(Button,7431964,119,266)
{
 Left=115
 Top=255
 link(onClick,15165760:doCalc,[])
}
Add(Label,13677077,245,266)
{
 Left=245
 Top=265
}