#pas
procedure THIStrPart._work_doSplit;
begin
  str := ReadString(_Data, _data_Str, ');
  if (_prop_Char = ') or (str = ') then exit;
  if (pos(_prop_Char,str) = 0) then
    _hi_CreateEvent(_Data,@_event_onNotFound, str)
  else if (str <> ') then   // if (str=') то поезд ушел 3-мя строчками выше, а если мы добрались сюда, то str точно не пустая и нафига  if(str <> ') ??????? !!!!
  begin
    FLeft := GetTok(str, _prop_Char[1]);
 ......
.......