delphi折行函数防乱码

function Addchr13(s : string; len : Integer) : string;
var
  i,j,slen:integer;
  mys:string;
begin
//stbrine#yahoo.com.cn 20110219重写,修改汉字分行乱码的错误
  i:=1;
  j:=0;
  slen:=Length(s);
  mys:='';
  result := '';
  while i<=slen do
  begin
    if Ord(s[i])>160 then //判断是否汉字，如果是就取2个字符
    begin
      if j+2 > len then
      begin
        mys:=mys+chr(13);
        j:=2
      end
      else  j:=j+2;
      mys:=mys+s[i]+s[i+1];
      i:=i+2;
    end
    else
    begin
      if j+1 > len then
      begin
        mys:=mys+chr(13);
        j:=1