RTF Conversion issue

Hi,

We've migrated our application from D7 to XE7 .

We've noticed that the RTF conversion is not same as D7 in XE 7.

Could anyone please let us know how to solve this problem.

Example code below.

var

  lRTF : String;

Begin

  lrtf:= '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\froman\fcharset0 Times New Roman;}'+

         '{\f1\fnil Tahoma;}}'#$D#$A'\viewkind4\uc1\trowd\trbrdrt\brdrdb\brdrw10 \trbrdrb\brdrdb\brdrw10 '+

         '\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1003'+

         '\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1404\'+

         'pard\intbl\b\f0\fs20 : \b0 HUBERS, RACHAEL E\fs24\cell\cell\row'#$D#$A'\b\fs20\trowd\trbrdrt\brdrdb\brdrw10 '+

         '\trbrdrb\brdrdb\brdrw10 \clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\'+

         'brdrs \cellx1003\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \'+

         'cellx1404\intbl : \b0 413530\fs24\cell\cell\row'#$D#$A'\pard\sb100\sa100 '#$D#$A'\par \pard\f1\fs16 '#$D#$A''+

         '\par }';

    lStream := TStringStream.Create(lRTF);

    try

      lStream.Seek(0,soBeginning);

      lRichEdit.Lines.LoadFromStream(lStream);

      lRichEdit.Lines.SaveToFile('c:\abc.rtf');

    finally

      lStream.Free;

    end;

End;

When we execute this code in D7 & XE7 the o/p is as below

--in D7

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\froman\fcharset0 Times New Roman;}{\f1\fnil Tahoma;}}{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\trowd\trgaph10\trleft-10\trbrdrt\brdrdb\brdrw10 \trbrdrb\brdrdb\brdrw10 \trpaddl10\trpaddr10\trpaddfl3\trpaddfr3\clbrdrl\brdrw15\brdrs\clbrdrt\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\clbrdrb\brdrw15\brdrs \cellx993\clbrdrl\brdrw15\brdrs\clbrdrt\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\clbrdrb\brdrw15\brdrs \cellx1394\pard\intbl\b\f0\fs20 : \b0 HUBERS, RACHAEL E\fs24\cell\cell\row\trowd\trgaph10\trleft-10\trbrdrt\brdrdb\brdrw10 \trbrdrb\brdrdb\brdrw10 \trpaddl10\trpaddr10\trpaddfl3\trpaddfr3\clbrdrl\brdrw15\brdrs\clbrdrt\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\clbrdrb\brdrw15\brdrs \cellx993\clbrdrl\brdrw15\brdrs\clbrdrt\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\clbrdrb\brdrw15\brdrs \cellx1394\pard\intbl\brdrt\brdrdb\brdrw10 \brdrb\brdrdb\brdrw10 \b\fs20 : \b0 413530\fs24\cell\cell\row\pard\sb100\sa100\par\pard\f1\fs16\par}

--in XE7

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\froman\fcharset0 Times New Roman;}{\f1\fnil\fcharset0 Tahoma;}}\viewkind4\uc1\trowd\trbrdrt\brdrdb\brdrw10 \trbrdrb\brdrdb\brdrw10 \clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1003\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1404\pard\intbl\b\f0\fs20 : \b0 HUBERS, RACHAEL E\fs24\cell\cell\row\b\fs20\trowd\trbrdrt\brdrdb\brdrw10 \trbrdrb\brdrdb\brdrw10 \clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1003\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs \cellx1404\intbl : \b0 413530\fs24\cell\cell\row\pard\sb100\sa100\par\pard\f1\fs16\par}

Here you can notice that there is a huge difference between XE7 and D7, because of this we're facing lot of issues.