Add(InlineCode,12255854,322,252)
{
 WorkPoints=#6:doWork|
 DataPoints=#4:Hndl|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:     hndl:THI_Event;|5:     |51:     procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|16:var PH:cardinal;|37:    //name:тут тип твоего басс потока|5:begin|32:  PH := ReadInteger(_Data,Hndl);|34:  name := {Тип твоего потока}(PH);|25:  //делай с ним чего хош!|4:end;|0:|4:end.|
}