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

var MyFS : TFileStream;
begin
MyFS := TFileStream.Create('c:\Temp\DirektAusFileStream-0.rtf',fmCreate);
try
  RichEdit1.Lines.SaveToStream(MyFS);
  MyFS.Size := MyFS.Size-1;
finally
  MyFS.Free;					

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

function GetRTFFromRichEditNoNUL(aRichEdit: TRichEdit): String;
var StrS : TStringStream;
begin
  StrS := TStringStream.Create('');
  try
    aRichEdit.Lines.SaveToStream(StrS);
    Result := StrS.DataString;
    if Result[Length(Result)] = #0 then
      Result := Copy(Result,1,Length(Result)-1);
  finally
    StrS.Free;
  end;
end;

procedure TForm1.AnhaengenClick(Sender: TObject);
var sRTF : String;
begin
  sRTF := GetRTFFromRichEditNoNUL(RichEdit1);
  sRTF := sRTF+GetRTFFromRichEditNoNUL(RichEdit2);
  //weiterverarbeiten
end;					

1:
2:
3:
4:
5:

00000000h: 7B 5C 72 74 66 31 5C 61 6E 73 69 5C 61 6E 73 69 ; {\rtf1\ansi\ansi
--- Schnipp ----
00000080h: 70 61 72 64 5C 66 30 5C 66 73 31 36 20 44 65 6C ; pard\f0\fs16 Del
00000090h: 70 68 69 2D 46 6F 72 75 6D 5C 66 31 20 0D 0A 5C ; phi-Forum\f1 ..\
000000a0h: 70 61 72 20 7D 0D 0A 00                         ; par }...