Text von RichEdit zu RichEdit in TabSheets übertragen

[moperswings]

Hallo,

ich habe zwei TabSheets in denen sich jeweils ein RichEdit befindet.
Im ersten schreibe ich Text, im zweiten soll der geschriebene Text von <tags> eingeschlossen werden.
Aber immer, wenn ich von Tab1 zu Tab2 springe, ist in meiner ersten Zeile das Tag weg.
Warum funktioniert das nicht?

Delphi-Quellcode:

RichEdit2.Lines.add('

');
RichEdit2.Text := RichEdit1.Text;
RichEdit2.Lines.Append('</p>');

Ich habe schon mehrere Varianten durch, aber immer ist die erste Zeile mein geschriebener Text.
Hoffentlich könnt Ihr mir einen Tipp geben!

Viele Grüsse,
moperswings