1:
2:
3:
4:
5:
6:
7:

var s : String;
begin
  RichEdit1.Lines.LoadFromFile('c:\@archiv\Tabelle.rtf');
  RichEdit2.Lines.LoadFromFile('c:\@archiv\Tabfarbe.rtf');
  s := GetRTFFromRichEdit(RichEdit2);
  RichEdit1.SelStart := Length(RichEdit1.Text);
  RichEdit1.SelText := s;					

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

Var
  s : TStringStream;

Begin
  s := TStringStream.create;
  Try
    MyRichEdit.Lines.SaveToStream (s);
    ShowMessage('Rich Text formatted stuff:'+s.DataString);
  Finally
    S.Free;
  End;
End;					

1:
2:
3:

    RichEdit1.SelectAll;
    RichEdit1.CopyToClipBoard;
    RichEdit2.PasteFromClipBoard;					

1:
2:
3:

   Stream.Seek(soFromBeginning,0);//<-------
   RichEdit2.PlainText := False;
   RichEdit2.Lines.LoadFromStream(Stream);					

1:

RichEdit1.SelText := s;					

1:

{\rtf1\ansi\ansicpg1252\uc1 \deff0\deflang103					

1:
2:
3:
4:
5:
6:

{\rtf1\ansi\ansicpg1252\deff0\deflang1031
{\fonttbl{\f0\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs20 RichEdit1\par \par }
{\rtf1\ansi\ansicpg1252\deff0\deflang1031
{\fonttbl{\f0\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs20 RichEdit1\par \par }					

1:
2:
3:
4:

s := '{\rtf1\ansi\ansicpg1252\deff0\deflang1031' 
     +'{\fonttbl{\f0\fnil MS Sans Serif;}}' 
     +'\viewkind4\uc1\pard\f0\fs20 Dieser Text ist neu hinzugekommen\par \par }';
RichEdit1.SelText := s;					

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

procedure RichEditAddRichEdit(ZielRE,QuelleRE: TRichEdit);
var StrS : TStringStream;
    s : String;
begin
  StrS := TStringStream.Create('');
  try
    QuelleRE.Lines.SaveToStream(StrS);
    s := StrS.DataString;
    ZielRE.SelStart := Length(ZielRE.Text);
    ZielRE.SelText := s;
  finally
    StrS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //der Inhalt von RichEdit2 -incl. der Formatierungen-
  //wird an RichEdit1 angehängt
  RichEditAddRichEdit(RichEdit1,RichEdit2);
end;