RTF-Text in Excel-Zelle

[Hans-Peter Schweiger]

Hallo,
ich möchte aus einer TRichText-Komponente einen Text in eine Excel-Zelle einfügen, aber so, dass die Formatierungen erhalten bleiben. Wie macht man sowas?
bei meine bisherigen (vielleicht naiven) Versuche:

  RichEdit1.PlainText := False;
  RichEdit1.CopyToClipboard;
  Excel1 := CreateOleObject('Excel.Application');
  wbkReport := Excel1.Workbooks.open('E:\Mappe1.xls');
  excel1.visible := true;
  ws1 := wbkReport.Worksheets['Tabelle2'];
  ws1.paste;

Nur wenn ich das einfüge, wird keine Formattierung übernommen.
Nutze D7 und Office 2003.