Add(MainForm,10989208,238,119)
{
}
Add(Edit,186530,322,119)
{
 Left=265
 Top=40
 Hint="вненкенукенукен неукенкен енукенукенукенук"
 Point(doHint)
 link(onChange,16063517:doTest,[])
}
Add(InlineCode,16063517,378,119)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|4:    |24:     onRes  : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|16:var s,ss:string;|14:    i:integer;|5:BEGIN|9:  ss:='';|21:  s:=toString(_Data);|2:  |26:  for i:=1 to Length(s) do|8:   begin|34:    if s[i] in ['0'..'9','.'] then|10:     begin|14:	 ss:=ss+s[i];|6:	 end |54:	else _hi_onEvent(onRes, 'Ошибка поз. ' + int2str(i));|5:	end;|4:END;|0:|0:|4:end.|
 link(onRes,10832745:doMessage,[])
}
Add(Message,10832745,434,119)
{
 Caption="Error"
}