procedure THIStrPart._work_doSplit;
var str:string;
begin
  if (_prop_Char = ') then exit;
  str := ReadString(_Data,_data_Str,');
  if (pos(_prop_Char,str) = 0) then
    _hi_CreateEvent(_Data,@_event_onNotFound,str)
  else if(str <> ') then
   begin
    FLeft := GetTok(str,_prop_Char[1]);
    _hi_OnEvent(_event_onPart,FLeft);
    _hi_CreateEvent(_Data,@_event_onSplit,str);
   end;
end;