#pas
procedure THIStr_Enum._work_doEnum;
var s:string;
    Ind:integer;
begin
   s:=ReadString(_Data,_data_String,');
   if s = ' then  exit;
   if _prop_Delimiter = ' then  // выдаем поcимвольно
........
........
   else                         // иначе делим по делимитеру
    begin
      Ind:=0;                      
      s := s + _prop_Delimiter; // здесь к исходной строке добавлялся "лишний" делимитер
                                // кто и почему удалил эту строчку - вопрос конечно интересный  
......
......
end;