#pas
procedure THIStrCase._work_doModify;
var
  str: string;
begin
  str := ReadString(_Data, _data_Str); //+#0;
  _prop_Type(str);
//  SetLength(str, length(str) - 1); 
  _hi_CreateEvent(_Data, @_event_onModify, str);
end;