if (_prop_Char = ') or (str = ') then exit;

procedure THIStrPart._work_doSplit;
begin
  str:='; Fleft:='; 
  str := ReadString(_Data, _data_Str, ');