Add(Edit,2021630,525,224)
{
 Left=5
 Top=5
 Width=90
 Text="1;1;1;1;1;1;1;1;1;1"
}
Add(Str_Enum,3452700,525,266)
{
 Delimiter=""
 link(onEnum,3273564:doCompare,[])
 link(String,2021630:Text,[])
}
Add(Button,1986244,420,252)
{
 Left=5
 Top=35
 Width=70
 Caption="Посчитать"
 link(onClick,5688612:doEvent1,[])
}
Add(Label,717425,749,266)
{
 Left=95
 Top=40
 Caption=""
}
Add(CounterEx,6311878,658,266)
{
 Max=10000
 Point(doReset)
 link(onNext,2292027:doString,[])
}
Add(LineBreak,9492589,616,273)
{
 link(Out,6311878:doReset,[])
 Primary=[2193977,-126,-21]
}
Add(Hub,5688612,462,252)
{
 OutCount=3
 link(onEvent1,2193977:In,[])
 link(onEvent2,11386199:In,[])
 link(onEvent3,3452700:doEnum,[])
}
Add(FormatStr,2292027,700,266)
{
 Mask="Количество "элементов" : %1"
 link(onFString,717425:doText,[])
}
Add(Label,542329,749,308)
{
 Left=95
 Top=60
 Caption=""
}
Add(CounterEx,4823840,658,308)
{
 Max=10000
 Point(doReset)
 link(onNext,7620070:doString,[])
}
Add(FormatStr,7620070,700,308)
{
 Mask="Количество разделителей : %1"
 link(onFString,542329:doText,[])
}
Add(LineBreak,11668079,616,315)
{
 link(Out,4823840:doReset,[])
 Primary=[11386199,-126,-56]
}
Add(If_else,3273564,567,266)
{
 Type=5
 Op2=String(;)
 link(onTrue,6311878:doNext,[])
 link(onFalse,4823840:doNext,[(610,279)(610,314)])
}

#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;