procedure TForm1.Button1Click(Sender: TObject);
  cRT = '{\rtf1\ansi\ansicpg1251\deff0\deflang1049'
    + '{\fonttbl{\f0\fnil\fcharset204 Calibri;}'
    + '{\f1\fnil\fcharset0 Calibri;}'
    + '{\f2\fnil Tahoma;}{\f3\fnil\fcharset161 Calibri;}}'
    + '\viewkind4\uc1\pard\sa200\sl276\slmult1\f0\fs22'
    + '\''cf\''f0\''e8\''e2\''e5\''f2\lang1033\f1 ,\lang1049'
    + '\f0  \f2\fs16 Kos-2010\f0\fs22 !'
    + '\par \f3\''c1\''c2\''c3\''c4\''c5\''c6\''c7\''c8\''c9\''ca'
    + '\''cb\''cc\''cd\''ce\''cf\''d0\''d1\''d3\''d4\''d5\''d6\''d7\''d8\''d9'
    + '\par \''e1\''e2\''e3\''e4\''e5\''e6\''e7\''e8\''e9\''ea\''eb\''ec\''ed'
    + '\''ee\''ef\''f0\''f1\''f2\''f3\''f4\''f5\''f6\''f7\''f8\''f9\lang9\f1'
    + '\par \pard\lang1049\f2\fs16\par }';

var
  fRT: TRichEdit;
  fSS: TStringStream;
begin
  fRT := TRichEdit.Create(self);
  fRT.Parent := Self;
  fRT.Width := 400;
  fRT.Height := 400;
  fSS := TStringStream.Create(cRT);
  fRT.Lines.LoadFromStream(fSS);
  fSS.Free;
end;

  cRF =
    '{\rtf1\ansi\ansicpg1251\deff0\deflang1049'
    + '{\fonttbl{\f0\fnil\fcharset0 Calibri;}'
    + '{\f1\fnil\fcharset204 Calibri;}{\f2\fnil\fcharset161 Calibri;}}'
    + '\viewkind4\uc1\pard\sa200\sl276\slmult1\lang9\f0\fs22 P'
    + '\lang1049\f1\fs16\''ed\''e0\''e3\''f0\''f3\''e7\''ea\''e8\fs22 =W5*500\''c2\''c0'
    + '\par \''cf\''ee \''f4\''ee\''f0\''ec\''f3\''eb\''e5 \f2\''eb\f1 =\f2\''e1\f1 *2\par }';