procedure ZsRichEditAppend(mRichEdit: TRichEdit; mText: string; mFont: TFont);
{ 添加一个RTF字符串 }
var
I, L: Integer;
vText: string;
begin
vText := mRichEdit.Lines.Text;
I := Length(vText);
L := 0;
while (I > 0) and (L < 2) and (vText[I] in [#13, #10]) do begin
Inc(L);
Dec(I);
end;