我记得应该是#13+#10,但好象也不一定,#13或#10可能也可以分行。
推荐你把所有字符的ASCII打出来,看一下,你就清楚了
var i:integer;
var k:integer;
var temp:String;
begin
    temp:='';
    i:=Length(RichEdit1.Lines.Text);//所有字符的长度
    for k:=1 to i do
    begin
        temp:=temp+InttoStr(Ord(RichEdit1.Lines.Text[k]));
        if (k mod 13 )=0 then
        begin
               temp:=temp+#13+#10;
        end;
    end;
    ShowMessage(temp);
end;
//打出来后,你慢慢对照,这样才能得到最正确的答案