procedure _work_doEditText(var _Data:TData; Index:word);
procedure _work_doEditTextNoEvents(var _Data:TData; Index:word);      
procedure _var_EditText(var _Data:TData; Index:word);

Add(ComboBox,860405,301,161)
{
 Left=85
 Top=105
 Width=160
 Height=21
 Point(onKeyDown)
 Point(EditText)
 link(onKeyDown,3678691:doCase,[])
}
Add(Message,1355809,399,182)
{
 link(Message,10363571:Var,[])
}
Add(Case,3678691,350,175)
{
 Value=Integer(13)
 link(onTrue,1355809:doMessage,[])
}
Add(LineBreak,5788323,315,217)
{
 Type=1
 link(Data,860405:EditText,[])
 Primary=[10363571,84,-63]
}