Textbox aus Stream befüllen

Ich habe ein kleines WPRichtext welches z.B. eine Zeile, dann 3 weitere Zeilen und eine unterste Zeile beinhaltet.

Das sieht so aus:

Zeile ganz oben

1

2

3

unterste Zeile

Dessen Inhalt speichere ich in einen Stream:

var
Stream:TMemoryStream;
...
WPRichtext1.SaveToStream(Stream, 'WPT');

Nun erzeuge ich in einem anderen WPRichtext eine Textbox und möchte in diese den Stream laden:

        RTFData := nil;
        TxtObj := WPRichText1.TextObjects.InsertTextBox(b, h, RTFData,
          SpecialText.FirstPar);
        TxtObj.PositionMode := wpotPage;
        TxtObj.RelX := 1000;
        TxtObj.Rely := 1000;
        TxtObj.Frame := [wpframeFine];
        if RTFData <> nil then
        begin
          StreamText.Position :=0;
          RTFData.FirstPar.LoadFromStream(Stream, 'WPT');
        end;

Als Ergebnis habe ich nun darin stehen:

Zeile ganz oben1

2

3

unterste Zeile

Da fehlt also ein Zeilenumbruch oben vor der 1!

Versuchsweise habe ich beim Stream laden die Option [wploadpar_AsChildrenPar] benutzt, jetzt ist der Text korrekt, aber enthält ganz oben eine neue unerwünschte Leerzeile!

Es steht da also nun

Leerzeile

Zeile ganz oben

1

2

3

unterste Zeile

Wie bekomme ich den Originaltext korrekt in meine textbox?

Ciao

Stefan

Vielen herzlichen Dank!

Die Begründung des Fehlers ist klar, und wenn ich RTFData.RTFText.LoadFromStream verwende, ist alles wie gewünscht!

Ciao

Stefan