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