请问：将一串汉字一逗号为界分割，为何会出现乱码？

Question

iCount:=0;
 sText:=edt.Text;
 iPos:=Pos('，',sText);
   while ipos>0 do
    begin
     sSubText:=copy(sText,1,ipos-1);
         sText:=copy(sText,ipos+1,length(sText));
     if sSubText<>''then
      begin
       inc(icount);
       Setlength(arrstr,ipos);
       arrstr[icount]:=sSubText;
       showmessage(arrstr[icount]);
      end;
     ipos:=Pos('，',stext);
    end;
   inc(icount);
  arrstr[icount]:=stext;为什么结果只有第一个逗号前的字符正确，其他全是乱码啊？？
请各位帮忙看看！
3x!!!

Answer 1

sText:=copy(sText,ipos+1,length(sText));
>>
sText:=copy(sText,ipos+2,length(sText));
呵呵