遍历了品种所属所有板块问题

易恒

网友野报问题。

代码是遍历了品种所属所有板块，从arCn计数看是完成了遍历，但组合字符串（arBks）有问题。如果去掉##分割，则输出字符串正确。
源码

strBk:=BkName+',';
startStrCn:=1;
midStrCn:=1;
arBks:='';
arCn:=1;
if IsLastBar then
begin
        while midStrCn <> StrLen(strBk) do
        begin
                midStrCn:=Strfind(strBk,',',startStrCn);
                arBks:=arBks+StrMid(strBk,startStrCn,midStrCn - startStrCn)+'##';
                startStrCn:=midStrCn+1;
        arCn+=1;
        end
end
DrawTextAbs(1,10,BkName);
DrawTextAbs(1,30,arBks);
DrawTextAbs(1,50,'板块数量: '+NumToStrn(arCn,0));