Stream im Stream abspeichern

[Taladan]

Seltsamerweise erhalte ich immer einen Laufzeitfehler, wenn ich den Stream erstellen möchte.

Delphi-Quellcode:

procedure TFormDateneingabeBuecher.BtAddClick(Sender: TObject);
Var Test : TStream;
begin
     Memo1.Lines.SaveToStream(Test); // hier ist der Laufzeitfehler
     BefBuecher.Schreiben(StrToInt(Edit1.Text),Edit2.Text,Edit3.Text, Test);
end;