Ошибка экспорта Rtf

Stiffman

Экспорт rtf. При увеличении шрифта в RichEdit не увеличивается межстрочный интервал, в результате при 14 шрифте имеем наезд одной строки на другую.

s2 :='\sb' + IntToStr(n1) +
        '\li' + IntToStr(Round((Obj.Style.GapX / 2) * Xdivider)) +
        '\fi' + IntToStr(Round((Obj.Style.ParagraphGap) * Xdivider)) +
        '\expnd' + IntToStr(j div 5) + '\expndtw' + IntToStr(j) +
        '\sl-' + IntToStr(Round((-Obj.Style.Font.Height + Obj.Style.LineSpacing) * YDiv * 0.98)) +
        '\slmult0';

Obj.Style.Font.Height - остается постоянным = 13 при любом размере шрифта в RichEdit.