Add(MainForm,2953706,49,98)
{
 Height=103
 Position=1
}
Add(Edit,775967,119,98)
{
 Left=10
 Top=20
 Width=365
 link(onChange,9782296:doTest,[])
}
Add(InlineCode,9782296,189,98)
{
 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|80:  if s[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё',' '] then ss:=ss+s[i];|24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
 link(onRes,775967:doText2,[(232,104)(232,137)(107,137)(107,111)])
}

Add(MainForm,13520566,378,266)
{
 Width=306
 Height=210
 Position=1
}
Add(Edit,3523987,595,308)
{
 Left=70
 Top=70
 Width=200
 Text=""
 Point(Handle)
 Point(onKeyDown)
}
Add(Button,8724423,480,333)
{
 Left=5
 Top=65
 Width=45
 Caption="push"
 Data=String(01234567891345  + буквы)
 link(onClick,3523987:doText,[(557,339)(557,314)])
}

Add(MainForm,13520566,371,77)
{
 Height=103
 Position=1
}
Add(Edit,775967,441,77)
{
 Left=10
 Top=20
 Width=365
 link(onChange,9782296:doTest,[])
}
Add(InlineCode,9782296,511,77)
{
 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|46:  if s[i] in ['0'..'9'] then else ss:=ss+s[i];|24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
 link(onRes,775967:doText2,[(550,83)(550,69)(431,69)(431,90)])
}