fastreport 3.0 如何实现强制换行?

var tstr:string;
procedure Memo1OnBeforePrint(Sender:TfrxComponent);
begin
tstr:=copy(memo1.text,1,10)+#13;//每行10个字符。
tstr:=tstr+copy(memo1.text,11,10)+#13;
memo1.text:=tstr;
end;
-------------------------------------
要求实现每行输出10个汉字然后换行,但以上代码却出错:
---------------------------
调试器检测到错误
---------------------------
工程 Project1.exe 检测到错误类 Exception, 错误信息: 'Memo1: 运算式错误 'frxDBDa
taset1."C_
': ';' expected'. 进程中止. 使用单步或运行继续运行.
---------------------------
确定   帮助(H)   
---------------------------
请大家帮帮忙,该如何实现,或帮忙看看上面代码出错在哪里!请指点