procedure ThiConvertorEx._work_doConvert16;//VKeyToChar
var
  Key: Word;
  keyboardState: TKeyboardState;
begin
  key := ReadInteger(_Data,_data_Data);
  GetKeyboardState(keyboardState) ;

  SetLength(st, 2);
  case ToAscii(key, MapVirtualKey(key, 0), keyboardState, @st[1], 0) of
    1: SetLength(st, 1);
    2: ;
    else
      st := ';
  end;
  _hi_CreateEvent(_Data, @_event_onResult,st);
end;