Add(InlineCode,6930391,84,78)
{
 WorkPoints=#6:doLoad|
 EventPoints=#6:onLoad|
 DataPoints=#8:FileName|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|26:uses kol,Share,Debug,BASS;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:     onLoad:THi_Event;|24:     FileName:THi_Event;|6:      |50:     procedure doLoad(var data:TData; index:word);|5: end;|0:|14:implementation|0:|57:procedure THiAsmClass.doLoad(var data:TData; index:word);|17:var err:cardinal;|5:begin|64:   err := BASS_PluginLoad(PChar(ReadString(Data, FileName)), 0);|28:   _hi_onEvent(onLoad, err);|4:end;|0:|4:end.|
}