1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

      RichEdit.Clear;
      // Bei RichEdit.Lines.Add wirkt sich SelAttributes immer auf die komplette
      // Zeile aus.
      RichEdit.SelAttributes.Style := [fsUnderline];
      RichEdit.Lines.Add('Seriennummer:');
      RichEdit.SelAttributes.Style := [];
      RichEdit.Lines.Add('');
      RichEdit.SelAttributes.Color := clRed;
      RichEdit.Lines.Add('XXXX');
      // Soll sich das nicht auf eine komplette Zeile auswirken, dann ist der Text
      // mit "RichEdit.SelText" zu setzen.
      RichEdit.SelAttributes.Style := [fsBold, fsUnderline];
      RichEdit.SelAttributes.Name := 'Arial Narrow';
      RichEdit.SelAttributes.Size := 18;
      RichEdit.SelAttributes.Color := clLime;
      RichEdit.SelText := 'Beispiel:';
      RichEdit.SelAttributes.Style := [fsBold, fsUnderline];
      RichEdit.SelAttributes.Name := 'Courier New';
      RichEdit.SelAttributes.Size := 10;
      RichEdit.SelAttributes.Color := clRed;
      RichEdit.SelAttributes.Style := [fsItalic];
      RichEdit.SelText := ' Text in roter Farbe.';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

{\rtf1\ansi\deff3\adeflang1025
{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}{\f1\froman\fprq2\fcharset2 Symbol;}{\f2\fswiss\fprq2\fcharset0 Arial;}{\f3\froman\fprq2\fcharset0 Liberation Serif{\*\falt Times New Roman};}{\f4\fswiss\fprq2\fcharset0 Liberation Sans{\*\falt Arial};}{\f5\fswiss\fprq2\fcharset1 Arial;}{\f6\fnil\fprq2\fcharset0 Microsoft YaHei;}{\f7\fnil\fprq2\fcharset0 Mangal;}{\f8\fnil\fprq0\fcharset1 Mangal;}}
{\colortbl;\red0\green0\blue0;\red0\green0\blue128;\red128\green128\blue128;}
{\stylesheet{\s0\snext0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031 Normal;}
{\*\cs15\snext15\cf2\ul\ulc0\langfe255\alang255\lang255 Internetlink;}
{\s16\sbasedon0\snext17\sb240\sa120\keepn\dbch\af6\dbch\af7\afs28\loch\f4\fs28 \u220\'dcberschrift;}
{\s17\sbasedon0\snext17\sl288\slmult1\sb0\sa140 Textk\u246\'f6rper;}
{\s18\sbasedon17\snext18\sl288\slmult1\sb0\sa140\dbch\af8 Liste;}
{\s19\sbasedon0\snext19\sb120\sa120\noline\i\dbch\af8\afs24\ai\fs24 Beschriftung;}
{\s20\sbasedon0\snext20\noline\dbch\af8 Verzeichnis;}
}{\info{\creatim\yr2014\mo6\dy17\hr20\min27}{\revtim\yr0\mo0\dy0\hr0\min0}{\printim\yr0\mo0\dy0\hr0\min0}{\comment LibreOffice}{\vern67240962}}\deftab709
\viewscale100
{\*\pgdsctbl
{\pgdsc0\pgdscuse451\pgwsxn11906\pghsxn16838\marglsxn1134\margrsxn1134\margtsxn1134\margbsxn1134\pgdscnxt0 Standard;}}
\formshade\paperh16838\paperw11906\margl1134\margr1134\margt1134\margb1134\sectd\sbknone\sectunlocked1\pgndec\pgwsxn11906\pghsxn16838\marglsxn1134\margrsxn1134\margtsxn1134\margbsxn1134\ftnbj\ftnstart1\ftnrstcont\ftnnar\aenddoc\aftnrstcont\aftnstart1\aftnnrlc
\pgndec\pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031{\cf2\b\afs48\ab\rtlch \ltrch\loch\fs48\loch\f5
Das ist einfach nur ein Beispiel.}
\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031\rtlch \ltrch\loch\loch\f5

\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031{\rtlch \ltrch\loch\loch\f5
Oben die Schrift ist sch\u246\'f6n blau und fett, ich bin es mangels Alkohol zum Gl\u252\'fcck nie.}
\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031\rtlch \ltrch\loch\loch\f5

\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031{\ul\ulc0\rtlch \ltrch\loch\loch\f5
Lorem ipsum blah blah...}
\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031\rtlch \ltrch\loch\loch\f5

\par \pard\plain \s0\nowidctlpar{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\cf0\kerning1\dbch\af9\langfe2052\dbch\af7\afs24\alang1081\loch\f3\fs24\lang1031{\rtlch \ltrch\loch\loch\f5
Falls gew\u252\'fcnscht, hier noch eine kleine URL: }{{\field{\*\fldinst HYPERLINK "http://www.entwickler-ecke.de/viewtopic.php?p=687420" }{\fldrslt \cf2\ul\ulc0\langfe255\alang255\lang255\rtlch \ltrch\loch\loch\f5
Dieser Thread}}}
\par }                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Procedure TForm1.ShowRichText;
Var
  Strom    : TResourceStream;
  Ergebnis : String;

begin
  Strom := TResourceStream.Create(HInstance, 'RTFtext', RT_RCDATA);
  Try
    SetLength(Ergebnis, Strom.Size);
    Strom.ReadBuffer(Ergebnis[1], Strom.Size);
    RichEd.Text := Ergebnis;
  Finally
    Strom.Free;
  End;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowRichText;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormShow(Sender: TObject);
var
  x: Integer;
  RichEditStream: TMemoryStream;
begin

  RichEditStream := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(RichEditStream);
  RichEditStream.Position := 0;
  RichEdit1.Lines.LoadFromStream(RichEditStream);
  RichEditStream.Free;