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

 MyRTFList := TStringList.Create;

 MyMS := TMemoryStream.Create;
  try
   MyRTFList.Add('\par\trowd\trgaph50\cellx610\cellx2260\cellx2820\cellx7920\cellx8900\cellx10000\intbl Überschrift Spalte 1\cell Überschrift Spalte 2\cell Überschrift Spalte 3\cell Überschrift Spalte 4\cell Überschrift Spalte 5\cell Summe\cell\row');

   MyRTFList.Add('\par\intbl ' + Form1.Edit1.Text + '\cell ' + Form1.Edit2.Text + '\cell ' + Form1.Edit3.Text + '\cell\fs16 ' + Form1.Edit4.Text + '\cell\fs20 ' + Form1.Edit5.Text + '\cell ' + Form1.Edit6.Text + '\cell\row');

 MyRtfList.SaveToStream(MyMS);
 MyMS.Seek(soFromBeginning,0);
 RichEdit1.PlainText := False;
 RichEdit1.Lines.LoadFromStream(MyMS);					

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

var MyMS: TMemoryStream;
    MyRTFList : TStringList;
begin
  MyRTFList := TStringList.Create;
  MyMS := TMemoryStream.Create;
  try
   MyRTFList.Add('{\rtf1');// <--- !! fehlt die Zeile >> Zugriffsverletzung.
   MyRTFList.Add('\par\trowd\cellx610\cellx2260\cellx2820\cellx7920\cellx8900\cellx10000\intbl Überschrift Spalte 1\cell Überschrift Spalte 2\cell Überschrift Spalte 3\cell Überschrift Spalte 4\cell Überschrift Spalte 5\cell Summe\cell\row');
   MyRTFList.Add('\par\intbl ' + Form1.Edit1.Text + '\cell ' + Form1.Edit2.Text + '\cell ' + Form1.Edit3.Text + '\cell\fs16 ' + Form1.Edit4.Text + '\cell\fs20 ' + Form1.Edit5.Text + '\cell ' + Form1.Edit6.Text + '\cell\row');
   MyRTFList.Add('}');// <--- !! alle geöffneten geschweiften Klammern müssen geschlossen werden
                      //         fehlt die Zeile, wird nur der RTF-Code angezeigt.
   MyRtfList.SaveToStream(MyMS);
   MyMS.Seek(soFromBeginning,0);
   RichEdit1.PlainText := False;
   RichEdit1.Lines.LoadFromStream(MyMS);
  finally
    MyRTFList.Free;
    MyMS.Free;
  end;